张志峰的博客

水滴石川，积少成多。

导航

随笔分类 -  delphi TRichEdit

Delphi 保存写字板程序， 并进行打印

摘要：wDoc := docapp1.Documents.open(ExtractFilePath(Paramstr(0)) + 'abc.doc'); wDoc.SaveAs(ExtractFilePath(Paramstr(0)) + 'tmp\2.rtf', wdFormatRTF); wDoc.c 阅读全文

posted @ 2016-04-12 09:49 ╰★张志峰★╮ 阅读(535) 评论(0) 推荐(0)

Delphi RichEdit操作

摘要：1.选择设置对齐 RichEdit1.SelectAll;RichEdit1.Paragraph.Alignment:=taLeftJustify; // switch for other alignmentsRichEdit1.SelLength:=0;2.设置对齐和内容 redt1.Clear; 阅读全文

posted @ 2016-03-08 14:49 ╰★张志峰★╮ 阅读(3331) 评论(0) 推荐(0)

Delphi richedit获取选中文字

摘要：function TForm1.GetSendText(RichEdit: TExRichEdit): string;var MsgListInfo: TStrings; i, m, n: integer; x, y: LongInt; WideStr: WideString;begin Resul 阅读全文

posted @ 2016-03-08 13:52 ╰★张志峰★╮ 阅读(874) 评论(0) 推荐(0)

Delphi RichEx 图像

摘要：unit RichEx; {2005-03-04 LiChengbinAdded:Insert bitmap or gif into RichEdit controls from source file. 2005-01-31 LiChengbinUsage:Insert bitmap into R 阅读全文

posted @ 2016-03-08 13:27 ╰★张志峰★╮ 阅读(441) 评论(0) 推荐(0)

Delphi TRichEdit加载word内容

摘要：procedure TForm1.btn6Click(Sender: TObject);var WordApp: Variant; //声明一个word对象beginWordApp := CreateOleObject('Word.Application'); //创建word对象WordApp.D 阅读全文

posted @ 2016-03-08 13:20 ╰★张志峰★╮ 阅读(739) 评论(0) 推荐(0)

Delphi RICHEDIT中插入图象

摘要：unit InsRich;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ActiveX,ComCtrls;const REO_CP_SELECTION 阅读全文

posted @ 2016-03-08 13:12 ╰★张志峰★╮ 阅读(920) 评论(0) 推荐(0)