摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DB, DBTables;type TForm1 = class(TForm) Label1: TLabel; Memo1: TMemo; Label2: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Database1: TDatabase; Query1: TQuery; procedure Fo 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Query1: TQuery; Database1: TDatabase; Label1: TLabel; procedure FormCreat 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Query1: TQuery; Database1: TDatabase; Memo1: TMemo; Label1: TLabel; procedure Button2Click(Sender: TObjec 阅读全文

摘要： //譬如　WINDIR　表示系统目录系统变量,　以这样获:vars:string;begins:=GetEnvironmentVariable('WINDIR');ShowMessage(s);{C:WINDOWS}end;(*-------------------------------------------------------------------------------- WINDIR {系统目录　-　C:WINDOWS} SYSTEMROOT {系统目录　-　C:WINDOWS} SYSTEMDRIVE {系统根目录　-　C:} HOMEDRIVE {当户根目录 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ImgList;type TForm1 = class(TForm) ButtonedEdit1: TButtonedEdit; Ima... 阅读全文

摘要： 编辑该控件OnLinkLink事件，代码如下： 阅读全文

摘要： 分类快捷键解释备注组件设计类Escape选择当前组件容器Shift + Click选择多个组件；选择窗体Tab选择下一个组件Shift + Tab选择上一个组件方向键选择此方向的下一个组件Ctrl + 方向键将所选组件的位置移动 1 个像素Shift + 方向键将所选组件的大小改变 1 个像素Ctrl + Shift + 方向键将所选组件的位置移动 1 个栅格Del删除所选组件Ctrl + 鼠标拖动选择一个容器内的多个组件可以一起修改共同属性Tab(在 Object Inspector 中使用)搜索属性或事件代码编辑类F1; Ctrl + F1光标所在单词的帮助Ctrl + Shift + E 阅读全文

摘要： Delphi作为一个强大的RAD研发工具，在应用软件的研发方面一直有着他的独特优势。这种优势同样体目前图像相关软件的研发上。如果你要在桌面上放置一张图像，只需要简单的在桌面上放置一个Image控件，然后就能通过其Image属性任意的加载BMP、WMF、EMF等格式的图像。如果还想增加对JPEG的支持，只需要添加一个JPEG单元即可。甚至在Image中加载一张JPEG后，Delphi会自动添加一个JPEG单元。一切做起来就是这么的简单。基本格式都已封装在了VCL中，那么Delphi对类似JPEG这样图像格式的支持是怎么实现的呢？其实从TPicture中非常容易看出其中的实现过程，他能理解为所有图 阅读全文