2016 年 3月 8 日随笔档案 - ╰★张志峰★╮

Delphi的windows剪切板操作函数

摘要： 1. Clipbrd函数 function Clipboard: TClipboard;：若应用程序从未使用过剪贴板，则调用该函数形成新的剪贴板；若之前使用过剪贴板则返回使用过的剪贴板。属性： AsText：将剪贴版的内容作为一个字符串输出；方法：HasFormat：指示剪贴板中是否包含指定格式的阅读全文

posted @ 2016-03-08 15:48 ╰★张志峰★╮ 阅读(729) 评论(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 ╰★张志峰★╮ 阅读(3328) 评论(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 ╰★张志峰★╮ 阅读(440) 评论(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)

张志峰的博客