摘要：判断clipboard里的格式：ifCliPBoard.HasFormat(CF_TEXT)thenEdIT1.Text:=CliPBoard.AsText从clipboard中取数据：①str:= clipboard.AsText;②imgMain.Picture.Assign(ClipBoard... 阅读全文

摘要：摘抄自：万一的博客安装头文件：http://www.cnblogs.com/del/archive/2008/06/06/1215319.html目录基本使用方法（绘制直线）绘制一组直线绘制矩形绘制一组矩形绘制椭圆型绘制绘制弧线绘制扇形(饼型)绘制多边形绘制闭合曲线绘制曲线基本使用方法：unit Unitinterfacuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPain... 阅读全文

摘要：抄自：万一的博客http://www.cnblogs.com/del/category/113551.html目录：基本方法查找（目标字符串及其属性）字表达式限定匹配范围：start、stop字符串分隔基本方法use PerlRegEx; //引用单元var reg:TPerlRegEx; //声明变量类型begin reg:= TPerlRegEx.Create; //创建实例 reg.Subject:= 'Goodbye Hello-World !'; //源字符串 reg.RegEx:= '(?<=Goodbye ).*'; //正规表达式 reg. 阅读全文

摘要：目录基本用法转义字符边界临界匹配匹配模式选项安装步骤：Delphi 正则表达式起步基本用法：with reg do begin Subject:= str; //要进行操作的字符串 RegEx := str1; //要被替换的子字符串 Replacement := str2; //被替换成的字符串 // (str1=>str2) ReplaceAll;//执行替换 str:= Subject; //取回替换后的字符串。end//属性：preCaseLess 不区分大小写reg.Options := [preCaseLess];注意：不区分大小写后，中文... 阅读全文

摘要：//声明:CreateFontIndirect( const p1: TLogFont {字体结构}): HFONT; {返回新字体指针}//TLogFont 是 tagLOGFONTA 结构的重定义:tagLOGFONTA = packed record lfHeight: Longint; {字体高度} lfWidth: Longint; {字体平均宽度} lfEscapement: Longint; {角度, 单位是 1/10 度} lfOrientation: Longint; {基线角度} lfWeight: Longint;... 阅读全文

摘要：转自：万一的博客。原理分析:这需要用到 ShellAPI 单元的两个函数: DragAcceptFiles、DragQueryFile;用 DragAcceptFiles(窗口句柄, True); 以让窗口能够接受拖放;然后就等待 WM_DROPFILES 消息, 并用 DragQueryFile 函数处理消息参数, 从而获取信息. 代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type T... 阅读全文

摘要：转自：老百姓Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，但并不多用，所以这里只对第一个介绍：function Format(const Format: string; const Args: array of const): string; over 阅读全文

摘要：来源：http://blog.csdn.net/chelen_jak/article/details/7069095Delphi 控制Excel(一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口： ExcelApp.Visible := True;2) 更改 Excel 标题栏： ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 阅读全文

摘要：转自：http://www.cnblogs.com/zhangzhifeng/archive/2011/08/04/2127395.html1．TOpenDialog组件的典型用法“打开”对话框是用TOpenDialog组件实现的，TOpenDialog组件是非可视组件。 Filter属性用于设置文件过滤器，让对话框只列出特定类型的文件。在设计时可以单击Filter属性旁的省略号“.”按钮，打开“Filter.Editor”对话框，在“Filter.Name”栏键入关于过滤器的简短说明，在“Filter”栏键入通配符，在设计期，把“打开”对话框组件加到窗体上，看到的是TOpenDialog组件 阅读全文