Delphi 组件使用及其代码
delphi 代码中设置控件的方法
delphi 代码中设置控件的方法
在 Delphi 中，设置控件的方法通常通过属性窗口或者直接在代码中设置。
以下是一些基本示例：
1. 如果你有一个按钮控件，并且你想在代码中设置它的标题，你可以这样做：
```delphi
:= '新的标题';
```
2. 如果你想设置一个编辑框控件的文本，你可以这样做：
```delphi
:= '新的文本';
```
3. 如果你想设置一个标签控件的字体，你可以这样做：
```delphi
:= 'Arial';
:= 12;
```
4. 如果你想设置一个列表框控件的项，你可以这样做：
```delphi
('新的项');
```
5. 如果你想设置一个复选框控件的选中状态，你可以这样做：
```delphi
:= True; // 或者 False 来取消选中
```
6. 如果你想设置一个进度条控件的当前值，你可以这样做：
```delphi
:= 50; // 设置为50%
```
以上只是基本的设置方法，实际上 Delphi 的控件还有很多其他属性和方法可以设置。
为了完全了解一个控件的所有属性和方法，你可以查看 Delphi 的帮助文档或者在线资源。
Delphi常用代码（个人自用整理2）
Delphi常⽤代码（个⼈⾃⽤整理2）3.Delphi 实现⽂件加密源码unit main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellAPI,inifiles,registry,Des ,FileCtrl, jpeg, ExtCtrls;typeTBruce = class(TForm)dlgOpen1: TOpenDialog;Image1: TImage;Button2: TButton;Edit1: TEdit;Label1: TLabel;Button1: TButton;Label2: TLabel;Edit2: TEdit;Button3: TButton;Label3: TLabel;Edit3: TEdit;Button5: TButton;procedure FormCreate(Sender: TObject);procedure Button5Click(Sender: TObject);procedure JiaMI(var FilePath,MiMa:string);procedure JieMi(var DianFile:string);procedure ZhuCeCaiDan;procedure DelZhuCe;procedure Button1Click(Sender: TObject);procedure Edit2Exit(Sender: TObject);procedure FormShow(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varBruce: TBruce;FilePahtName :string;sRoot:WideString;sCaption:string;implementationuses Unit2;{$R *.dfm}DianFile,IniPath:string;inifile: TInifile;beginDianFile:=FilePath+'..\';iniPath:='dat.ini';inifile:=TIniFile.Create(IniPath);inifile.WriteString('111','key',DES.EncryStrHex(MiMa,'FEIGEW')); inifile.Free;renamefile(FilePath,DianFile);end;procedure TBruce.FormCreate(Sender: TObject);vari: Integer;beginZhuCeCaiDan;for i := 1 to ParamCount dobeginif LowerCase(ParamStr(i)) <> '' then beginFilePahtName:= ParamStr(i);end;end;end;procedure TBruce.JieMi(var DianFile:string);varFileName,FileJD:string;i:Integer;beginFileName:=DianFile+'.\';I:=Length(FileName);FileJD:=Copy(FileName,1,i-3);renamefile(FileName,FileJD);end;procedure TBruce.ZhuCeCaiDan;vara:TRegistry;begina:=TRegistry.create;a.rootkey:=HKEY_CLASSES_ROOT;if a.openkey('Folder\Shell\cutbig',true) thena.closekey;end;if a.openkey('Folder\Shell\cutbig\command',true) thenbegin//command⼦键的内容是点击右键后选择相应项后要运⾏的程序；//%1是在单击右键时选中的⽂件名a.writestring('','"'+Application.exeName+'" "%1"');a.closekey;end;a.free;end;procedure TBruce.DelZhuCe;vara:TRegistry;begina:=TRegistry.create;a.rootkey:=HKEY_CLASSES_ROOT;//⽤deletekey删除⼀个主键，其所包含的⼦键也被删除，如果已⽆此主键，运⾏删除操作不会带来别的危害a.deletekey('Folder\Shell\cutbig');a.free;Application.MessageBox('成功删除系统右键菜单！', '成功', MB_OK +MB_ICONINFORMATION);end;procedure TBruce.Button5Click(Sender: TObject);beginapplication.Terminate;end;procedure TBruce.Button1Click(Sender: TObject);varpassword:string;beginif FilePahtName='' then beginApplication.MessageBox('没有可加密的⽂件夹，请从⽂件夹上右键启动加密程序！','系统', MB_OK + MB_ICONWARNING);//Application.Terminate;end;if (Edit1.Text='') or (Edit2.text='') then beginApplication.MessageBox('密码不能为空，请输⼊你的密码！', '系统', MB_OK +MB_ICONWARNING);Exit;end;if Edit2.Text=Edit1.Text then beginpassword:=Edit2.Text;JiaMI(FilePahtName,password);Application.MessageBox('⽂件夹添加密码成功，请牢记您的密码！', '系统', MB_OK+ MB_ICONINFORMATION);//Application.Terminate;end else beginend;end;procedure TBruce.Edit2Exit(Sender: TObject);beginif Edit2.Text<>Edit1.Text then beginApplication.MessageBox('两次输⼊的密码不⼀致，请重新输⼊！', '系统', MB_OK + MB_ICONWARNING);Edit2.SetFocus;end;end;procedure TBruce.FormShow(Sender: TObject);beginEdit1.SetFocus;end;procedure TBruce.Button2Click(Sender: TObject);begin{ FilePahtName:='';if not dlgOpen1.Execute then exit;FilePahtName:=dlgOpen1.FileName;ShowMessage(FilePahtName);}sCaption := '⽂件夹'; //弹出框标题名(⾮弹出框窗体名)sRoot := ''; //初始⽂件夹(如'C:\','D:\DownLoad'等, 不存在则从桌⾯)beginif SelectDirectory(sCaption, sRoot, FilePahtName) then//已返回所选⽂件夹路径给FilePahtName,⾃⾏处理end;ShowMessage(FilePahtName);end;procedure TBruce.Button3Click(Sender: TObject);varlen:Integer;inifile: TInifile;IniPath,password,sstemp:string;beginBruce.JieMi(FilePahtName);len:=Length(FilePahtName);sstemp:=Copy(FilePahtName,1,len-1);iniPath:='dat.ini';inifile:=TIniFile.Create(IniPath);password:=inifile.ReadString('111','key','');password:=des.DecryStrhex(password,'FEIGEW');inifile.Free;Bruce.JiaMI(sstemp,password);if Edit3.Text=password then beginBruce.JieMi(FilePahtName);DeleteFile(IniPath) ;Application.MessageBox('您输⼊的密码错误，请重新输⼊密码！', '系统', MB_OK +MB_ICONWARNING);Edit3.SetFocus;end;end;end.⼀、“软件限时注册”控件（TShareRegist）功能说明：简介：⼀、1、只要将该控件加⼊主窗体，使Action属性设为true，再设置其它属性，你的软件就有限时注册的功能了，只要你牢记三个密钥，并加上给你的算号软件（RegObject_Admin.exe）你就可以⽆敌天下了。
delphi canvas用法
delphi canvas用法Delphi Canvas 用法Delphi 是一种开发环境，用于构建Windows 应用程序的快速开发工具。
其中的一个重要组件是Canvas，它用于在界面上绘制图形和文本等元素。
本文将详细介绍Delphi Canvas 的用法，帮助开发人员了解如何在应用程序中利用Canvas 实现各种绘图效果。
第一步：了解Canvas在开始使用Delphi 的Canvas 组件之前，我们需要了解一些基本概念。
Canvas 是一个虚拟绘图面，可以用于在应用程序窗体上绘制图形。
它提供了一系列方法，用于绘制直线、曲线、矩形、椭圆、多边形等基本形状，以及绘制文本、图像等复杂元素。
第二步：创建Canvas要使用Delphi 的Canvas 组件，首先需要在应用程序窗体上创建一个TCanvas 对象。
可以通过以下步骤实现：1. 在Form 的private 部分声明一个TCanvas 变量：privateFCanvas: TCanvas;2. 在Form 的OnCreate 事件处理程序中，将FCanvas 与窗体的Canvas 属性关联起来：procedure TForm1.FormCreate(Sender: TObject);beginFCanvas := Canvas;end;完成以上步骤后，可以使用FCanvas 对象来访问Canvas 组件的方法和属性。
第三步：绘制基本形状使用Delphi 的Canvas 组件可以绘制各种基本形状，例如直线、矩形、椭圆、多边形等。
以下是一些常用方法的示例代码：1. 绘制直线：FCanvas.MoveTo(10, 10); FCanvas.LineTo(100, 100);2. 绘制矩形：FCanvas.Rectangle(20, 20, 100, 100);3. 绘制椭圆：FCanvas.Ellipse(30, 30, 120, 80);4. 绘制多边形：varPoints: array[0..2] of TPoint; beginPoints[0] := Point(10, 10);Points[1] := Point(100, 50);Points[2] := Point(50, 100);FCanvas.Polygon(Points);end;以上示例代码只是演示了Canvas 组件的一部分功能，你可以根据自己的需要使用其他绘制方法。
delphi fileopendialog 使用 参数
delphi fileopendialog 使用参数在Delphi 中，TFileOpenDialog 是一个用于打开文件的对话框组件，它属于Vcl.Dialogs 单元。
使用 TFileOpenDialog，用户可以轻松地从文件系统中选择一个或多个文件。
下面将详细介绍如何使用 TFileOpenDialog 及其参数。
首先，你需要确保你的 Delphi 项目中包含了 Vcl.Dialogs 单元。
通常，这可以通过在代码文件的顶部添加 uses 语句来完成，如下所示：delphiusesVcl.Dialogs;然后，你可以创建一个 TFileOpenDialog 实例并配置其属性。
以下是一个基本的示例：delphivarOpenDialog: TFileOpenDialog;begin// 创建 TFileOpenDialog 实例OpenDialog := TFileOpenDialog.Create(nil);try// 设置对话框的标题OpenDialog.Title := '请选择一个文件';// 设置默认的文件类型过滤器OpenDialog.Filter := '文本文件 (*.txt)|*.txt|所有文件 (*.*)|*.*';// 设置默认的文件类型OpenDialog.FilterIndex := 1;// 设置初始目录OpenDialog.InitialDir := 'C:\';// 显示对话框if OpenDialog.Execute thenbegin// 如果用户选择了文件，则获取第一个文件的完整路径ShowMessage(OpenDialog.FileNames[0]);end;finally// 释放 TFileOpenDialog 实例OpenDialog.Free;end;end;在这个示例中，我们创建了一个 TFileOpenDialog 实例，并设置了其标题、文件类型过滤器、默认文件类型、初始目录等属性。
Delphi常用组件及属性说明
事件 说明
MEMO.LINES.ADD() 在当前行增加一行文本
MEMO.LINES.APPEND() 在末追加一行文本
MEMO.LINES.Insert 在指定位置增加一行文本
EANBLED 用于指示此选项是否可用
GROUPINDEX 用于指定此选项所隶属的逻辑群组，以控制主菜单之间的合并或单选钮互斥的效果
HANDLE 对应此选项的Drop-DOWN菜单的WINDOWS MENU HANDLE
HELPCONTEXT 对应此选项的HELP CONTEXT ID
HINT 用于设定鼠标移入选项范围时的提示信息
MDICHILDCOUNT 用于取得子窗体数目
MDICHILDREN 用于取得子窗体（数组）
MENU 用于指定窗体主菜单
MODALRESULT 当窗体作用为MODAL对话框时，作为对话框的效果
MONITOR 用于指示窗体所显示的显示器
OLDCreateORDER 指定ONCreate和ONDESTROY事件何时发生
CURSOR 设定鼠标经过组件时光标所显示的形状
ENABLED 设定组件是否能使用，当设为FALSE时组件会呈灰色
FONT 设定组件内文字的字型、字体大小、颜色等
HEIGHT 设定组件高度
HELPCONTENT 用来为帮助说明文件中的索引值建立关联
LEFT 设定组件与父组件左边框间的距离
ONKEYDOWN 当在拥有焦点的组件上按下某个键时触发的事件，按键包括所有的英文、数字键、方向键、功能键等
ONKEYPRESS 当在拥有焦点的组件上按下某个键时触发的事件，但按键只包括所有的英文、数字键、TAB、BACKSPACE、ENTER、ESC
delphi 代码中设置控件的方法
delphi 代码中设置控件的方法Delphi是一种基于面向对象的编程语言，广泛应用于Windows操作系统中的软件开发中。
通过Delphi代码的编写，开发人员可以有效地设置控件的属性和方法，以实现用户界面的设计和功能的实现。
本文将按照研究方案进行实验或调查，并对采集到的数据进行整理和分析。
在已有研究成果的基础上，将提出一些新的观点和方法，为解决实际问题提供有价值的参考。
1. 引言我们将介绍Delphi语言以及它在软件开发领域的应用。
随后，我们将阐述Delphi中设置控件的方法，包括属性和方法的使用。
2. Delphi中设置控件的方法我们将详细介绍Delphi中如何设置控件的方法，包括以下内容：- 属性设置：通过设置控件属性，开发人员可以更改控件的外观和行为。
我们将介绍如何在Delphi代码中设置控件属性，包括大小、位置、字体、背景色等。
- 事件处理：控件可以响应用户的操作，如点击按钮、输入文本等。
我们将介绍如何使用事件处理程序来实现这些功能。
- 方法调用：通过调用控件的方法，我们可以在代码中执行特定的操作。
我们将介绍如何调用控件的方法，包括显示消息框、打开文件等。
3. 实验设计我们将设计一个实验来验证Delphi中设置控件的方法的有效性。
实验的目的是测试不同控件设置方法的性能和效果。
4. 数据的采集与整理在实验中，我们将采集数据，并将其整理成可用于分析的格式。
我们将说明数据的采集方法和数据的整理过程。
5. 数据分析与结果在这一部分，我们将对采集到的数据进行分析。
我们将使用统计学方法和图表来呈现数据的分析结果，并得出结论。
6. 创新与发展在已有研究成果的基础上，我们将提出一些新的观点和方法。
我们将思考如何改进Delphi中设置控件的方法，以提高编写代码的效率和可读性。
7. 实际问题的解决我们将探讨如何将我们的研究成果应用于实际问题的解决。
我们将分析实际问题，并提供相关的建议和解决方案。
8. 结论在本文的我们将总结我们的研究成果，并给出未来进一步研究的建议。
Delphi常用语法和控件用法
♦ Trim(const S: string): string;
删除字符串前后的空格及控制字符 ♦ TrimLeft(const S: string): string; 删除字符串前的空格及控制字符 ♦ TrimRight(const S: string): string; 删除字符串后的空格及控制字符
取值范围 扩 展 ANSI 字 符集 UniCode 字 符 集 扩 展 ANSI 字 符集
数据库系统开发
字符型适用的运算符
♦ 关系运算符：=、<>、>、>=、<、<= 关系运算符： 、 、 、 、 、
数据库系统开发
String类型 类型
♦ 字符串String是代表一组字符的变量类型
，每一种语言都有自己的字符串类型的 存储和使用方法。
void myloop() { int i; int t = 0; i = 0; while(i<10) { t := t+i; i++; } }
数据库系统开发
♦ Object Pascal中的 中的while循环 中的 循环
procedure myloop var i , t : Integer; begin t := 0; i := 0; while i<10 do begin t := t + i; i := i + 1; end; end;
数据库系统开发
变量
♦ c语言中的函数 语言中的函数
void foo(void) { int x = 1; int y = 2; x++; y--; }
数据库系统开发
♦ 用Object Pascal编写 编写
第6章Delphi常用控件及基础编程
《Delphi数据库基础》
清华大学出版社 6.3 Win32控件及其编程应用 6.3.1顺序页控件（TabControl）
顺序页控件（TTabControl）是一个应用相当广泛的 windows控件，TTabControl控件能够为窗体添加标签供用户使 用，比较适合于外观不变而内容变化的情况。 组合框控件，“Win32”页上。
清华大学出版社 6.6.6复选框控件（CheckBox）
复选框按钮用于多选的情况，我们可以从一组复选框中选 择多个选项，而不象选项按钮那样只能选择一个。在实际的 windows程序中大量的接触到复选框控件。 复选框钮控件【CheckBox】 ，在“standard”页上。
6.6.7列表框控件（ListBox）
6.2.5分割条控件（Splitter）
Splitter控件为分割条控件，可以把窗体分隔成几个部门， 拖动Tsplitter可以改变各个部分的大小。 Splitter控件 ，在“Aditional”页上。 TSplitter控件的属性主要用于设置界面的显示效果，实现 界面各部分大小的动态调整。
《Delphi数据库基础》
《Delphi数据库基础》
清华大学出版社
6.3.7修饰条控件（TCoolBar）
修饰条控件（TCoolBar）又称为“酷条”也是工具条的一 种，用于位置可移动、大小可调节的控制。TCoolBar对象包含 的子控制放置TCoolBar对象的段上，每个段都是TCoolBand对 象。TTCoolBand和TTCoolBar之间的关系就和TtoolButton和 TtoolBar的关系一样。 修饰条控件 ，在“Win32”页上。
6.3.5日期时间控件（DateTimePicker）
DateTimePicker控件可以实现日期和时间的快速输入，并 且可以保证输入的规范性。在此我们推荐读者在程序设计时 与日期相关的输入使用DateTimePicker控件。 DateTimePicker在“Win32”页上， 《Delphi数据库基础》
delphi cxbuttonedit1使用用法
delphi cxbuttonedit1使用用法Delphi是一款基于Pascal语言的高级编程语言，由Borland公司（现在归属于Embarcadero公司）开发。
CxButtonEdit1是一个Delphi组件，用于创建按钮和编辑器组合的控件。
在使用CxButtonEdit1之前，请先了解其基本属性和方法，以便更好地应用于项目中。
以下是关于Delphi CxButtonEdit1的使用方法：1. 添加组件：首先，在Delphi的组件库中找到CxButtonEdit1组件，将其添加到工具箱中。
然后在窗体设计器中，从工具箱中将CxButtonEdit1拖放到窗体上。
2. 设置组件属性：在属性窗口中，可以设置CxButtonEdit1的属性，如以下几个常用属性：- ButtonText：设置按钮上的文本。
- ButtonStyle：设置按钮的样式，如常规、扁平等。
- EditText：设置编辑框中的文本。
- EditStyle：设置编辑框的样式，如允许输入、只读等。
- MaxLength：设置编辑框允许的最大字符数。
3. 添加事件处理程序：CxButtonEdit1组件支持多种事件，如ButtonClick、EditChange等。
可以在窗体类的实现部分添加相应的事件处理程序，以响应用户操作。
示例代码：```pascalprocedure TForm1.Button1Click(Sender: TObject);begin// 用户点击按钮时执行的操作ShowMessage('Button clicked!');end;procedure TForm1.Edit1Change(Sender: TObject);begin// 用户在编辑框中输入发生变化时执行的操作ShowMessage('Edit changed: ' + Edit1.Text);end;```4. 编程操作组件：在程序运行过程中，可以通过编写代码来操作CxButtonEdit1组件，例如设置按钮和编辑框的文本等。
delphi的常用组件
1、按钮类组件的使用按钮类组件的使用非常普遍，在程序中主要用于执行命令，主要包括TButton（按钮）组件、TBitBtn（位图按钮）组件、TCheckBox（复选框）组件、TRadioButton（单选按钮）组件和TRadioGroup（单选按钮组）组件。
1．TButton组件几乎每个程序都要用到TButton 组件，该组件位于【Standard】选项卡下，图标是，它的主要功能是响应鼠标的单击事件，并执行相应的命令。
（1）TButton组件的主要属性● Caption属性：标题属性，即按钮显示的文本。
● Cancel属性：用于决定该按钮是否为取消按钮，默认值为False。
当为True时，按Esc键就相当于单击了该按钮组件。
● Default属性：用于决定该按钮是否为默认按钮，默认值为False。
当为True时，按Enter键就相当于单击了该按钮。
注意，根据约定俗成的编程习惯，通常只把OK、Yes 按钮的Default属性设置成True，把Cancel、No按钮的Cancel属性设置成True，至于其他按钮，这两个属性就使用默认值。
（2）TButton组件的常用事件● OnClick事件：单击事件，是TButton组件的最常用事件。
用鼠标单击TButton 组件或TButton组件获得焦点时按Enter键或空格键时触发该事件。
● OnMouseDown事件：鼠标按下瞬间触发该事件。
● OnMouseMove事件：鼠标在TButton组件上移动时触发该事件。
● OnMouseUp事件：在TButton组件上松开按下的鼠标时将触发该事件。
2．TBitBtn组件TBitBtn组件与TButton组件相似，不同之处是该组件可以显示一个彩色的位图，让人更容易理解。
该组件位于【Additional】选项卡下，图标是。
该组件的属性与响应的事件基本同TButton组件，下面仅介绍一下该组件的特殊属性。
● Glyph属性：用于为按钮指定一个位图文件，显示在按钮的表面。
Delphi_组件使用和代码
Delphi组件使用及其代码i. 数组定义(1) 一维数组数组名:array [n1 ..n2] of数据类型；(2)二维数组数组名:array [n1 ..n2，m1 . . m2] of 数据类型；或者数组名:array [n1 ..n2] of array[m1 m2] of 数据类型；(3)动态数组数组名:array of 数据类型；使用前要用SetLength (数组名，数组长度)；来动态申请空间2. 使用math数学函数：需要在uses引用里面添加math;其中power(a,b)函数是求a的b次幕。
RandomRange(a,b)函数是随机产生一个a、b之间的数。
3. 声明全局变量需要在implementation 之后声明；初始化格式需要在最后一个end之后：语句：initialization赋值语句；4. 常量在var后使用con st关键字声明常量：如const PI = 3.145. 枚举类型使用声明：type枚举类型名=(枚举值1 ,枚举值2, ....................... );定义：var变量名：枚举类型名;6•指针类型(1)@运算符：放在变量的前面，获得变量的地址；A运算符：放在指针变量的后面，取得该指针变量中所存放地址变量的数据；(2)声明：type指针类型名=A数据类型；var指针变量名：指针类型名；或者var 指针变量名：A数据类型；7. 日期时间函数function Now : TDateTime ；//返回系统当前日期和时间function Date : TDateTime ；// 返回系统当前日期function Time : TDateTime ；// 返回系统当前时间function DateTimeT oStr ( DateTime : TDateTime) : string ；// 将日期时间数据转换为字符串function StrToDateTime ( const s : string) : TDateTime ；// 将字符串转换为日期时间数据function DateToStr ( DateTime : TDateTime) : string ；// 将日期数据转换为字符串function TimeT oStr ( DateTime : TDateTime) : string ；// 将时间数据转换为字符串function FormatDateTime ( const Format : string ；DateTime : TDateTime ) : string ；//按指定格式输出日期时间例女口 : formatDatetime ( yyyy-mm-dd ：now);formatDatetime ( hh:mm:ss ：now);8. 自定义过程(1)在type下声明：procedure < 过程名>(< 参数列表>);（2）将光标移动定位在过程声明中，按Ctrl+Shift+C ,实现自动生成部分过程框架procedu re ＜过程名＞（＜参数列表＞）＜局部变量声明＞;begin＜过程体语句＞；end ；（3）自定义过程的调用：过程名（＜实参表＞）;9. 自定义函数（1）函数不用声明；（2）functionv函数名＞［（＜参数列表＞）］: ＜返回类型＞；＜局部变量声明＞;begin＜函数语句＞;end ；（3）自定义函数的调用：函数名（实参表）；10. 对话框函数MessageDIg（1）＜变量＞:=MessageDlg （信息内容'，类型，［按钮组］,HelpCex）；（2）类型：mtWarning 含有感叹号符号的警告对话框mtError 含有红色差号符号的错误对话框mtInformation 含有蓝色i符号的信息对话框mtConfirmation 含有蓝色？符号的确认对话框mtCustom 不含图标的一般对话框，对话框的标题是程序的名称按钮组：mbYes Yes按钮，函数返回mrYes或6mbNo No按钮，函数返回mrNo或7mbOk Ok按钮，函数返回mrOk或1mbCa ncel Cancel按钮，函数返回mrCancel或2mbHelp Help按钮mbAbort Abort按钮，函数返回mrAbort或3mbRetry Retry按钮，函数返回mrRetry 或4mbIg nore Ignore按钮，函数返回mrlgnore 或5mbAII All按钮，函数返回mrAII或8mbNoToAII NoToAII按钮，函数返回mrNoT oAll或9mbYesToAII YesToAII 按钮,函数返回mrYesToAII 或10 HelpCtx指定当用户单击HeIp ”按钮或＜F1＞键时，现实的帮助主题。
delphi常用组件的使用
它是一个可视化及灵活性都比较好的分组框组件， 可作为放置组件的容器，在播放视频多媒体时我们用 它作为播放的屏幕。它与GroupBox组件的不同之处是 它没有标题，不过Panel组件有丰富的边框风格，这是 GroupBox组件所不具有的，可通过设置BevelInner属 性和BevelOuter属性来改变Panel组件的边框样式。
Bitbtn组件
Bitbtn组件也称为位图组件，它位 于组件面板的Additional标签页，与 Button组件很相似，只是多了一个位图 符号在按钮上。该组件用于创建一个其 上带有位图的按钮（例如：带有对号的 OK按钮，带有错号的Cancel按钮，带有 问号的Help按钮等）。
Bitbtn组件的常用属性
Kind Kind属性的值就是位图按钮组件上所显示的图 标。在对象监视器的Properties页中，单击Kind属性 后的下拉三角按钮，从弹出的下拉列表中，列出了一 组默认图标的属性值，有：bkAbort、bkAll、 bkCancel、bkClose、bkCustom、bkHelp、bkIgnore、 bkNo、bkOK、bkRetry、bkYes。从中选择一个值后， 你就可以从位图按钮中的图标上直观、清晰地看出该 按钮的功能。
Flat 用于设置在鼠标移动到该按钮上时，按钮 是否出现三维效果。若设置为FALSE，则不会 出现三维效果。
GroupIndex 用于将数个加速按钮设置成一组， 只需将其值设置成不等于0的数值即可。
RadioButton组件
RadioButton组件也称为单选框按钮， 它位于组件面板的Standard标签页。此 类组件通常会被组成一组，并且在同一 组中，同一时刻只能选择一个单选按钮， 其余按钮都处于非选中状态。
DELPHI基础教程：数据访问部件的应用及编程（三）[2]
![DELPHI基础教程：数据访问部件的应用及编程（三）[2]](https://img.taocdn.com/s3/m/41052947571252d380eb6294dd88d0d232d43c4b.png)
DELPHI基础教程：数据访问部件的应用及编程（三）[2]字段输入模式编辑器在字段输入模式编辑中可以选择一种输入模式而且在TestInput 编辑框中输入字段值进行检验因为TStringField类型的字段部件没有DisplayFormat属性但是可以把EditMask属性当DisplayFormat属性使用设定字段的显示和编辑格式Delphi本身为某些类型的字段对象提供了设定其显示和编辑格式的例程并且为字段部件的DisplayFormat和EditFormat属性指定了缺省值例如对于与浮点型数值字段对应的TFloatField类型的字段部件而且该字段部件的Currency属性设置为True 时字段值的显示格式为$ 编辑格式是表是Delphi提供了设置字段显示和编辑格式的例程表字段格式例程━━━━━━━━━━━━━━━━━━━━━━━━━━━━━例程名运用的字段对象─────────────────────────────FormatFloat TFloatField TCurrencyFieldFormatDateTime TDateField TTimeField TDateTimeFieldFormatInteger TIntegerField TSmallIntField ordField━━━━━━━━━━━━━━━━━━━━━━━━━━━━━上述这些用于设定日期时间类型数值型以及货币型字段的显示和编辑格式的例程都是按国际上通行格式来设定相应类型字段的格式的用户可以自己设置字段部件的DisplayFormat和EditFormat属性来设定适合自己使用的格式还可以为有关字段对象的OnGetText和OnSetText事件编写代码来设定字段的显示和编辑格式字段部件的事件及应用字段部件常需处理的事件如表所示表字段部件的事件━━━━━━━━━━━━━━━━━━━━━━━━━━━━事件名用途────────────────────────────OnChange 当字段部件的字段值发生改变时触发该事件OnGetText 当字段部件获得字段值时触发该事件OnSetText 当字段部件被设置字段值时触发该事件OnValidata 当字值被修改或插入新的字段值时对字段值进行有效性检验时触发该事件━━━━━━━━━━━━━━━━━━━━━━━━━━━━用户想自己设定字段的显示和编辑格式时可以编写OnGetT ext事件和OnSetText事件的处理过程以达到设定字段的显示和编辑格式字段部件的类型转换函数及使用字段部件具有一些内部函数用于转换字段值的类型对于不同的字段类型这些转换函数的作用是不一样的表概括了不同类型的字段及转换函数的作用表字段部件的转换函数━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━字段类型 AsString AsInteger AsFloat AsDatetime AsBoolean ────────────────────────────────────TStringField 转换成转换成整数若能转换日期转换成布型Stringg型（若能转换）则转换成（若能转换）────────────────────────────────────TIntegerFieldTSmallField 字符型整数型浮点型不允许不允许转换ordField────────────────────────────────────TFloatFieldTCurrencyField 字符串型舍入成整数浮点型不允许不允许TBCDField────────────────────────────────────TDateFieldTDateTimeField 字符串不允许浮点数日期型不允许TTimeField────────────────────────────────────TBooleanField 转换成Time 不允许不允许不允许布尔型或False────────────────────────────────────lishixinzhi/Article/program/Delphi/201311/25154。
Delphi控件cxGrid（DevExpress控件）的使用方法
Delphi控件cxGrid（DevExpress控件）的使用方法1. 去掉cxgrid中抬头的box ,在tableview1的ptionsview的groupbybox=false;2. 在GRID footer 中加入sum(列), tableview1的optionsview 的footer=ture然后在cxGRid1的customize中的summary 的footer.add需要合计的列kind= skSum3. 去掉cxgrid 中的过滤下拉箭头选择tableview1.optionscustomize.columnfiltering=fasle;4. cxGrid1DBTableView1 的 OptionView中屬性GroupFooters 設為gfAlwaysVisible並設置需要求和的列,在summary.default for Groups 下add加入需要合计的字段,column下显示fieldname 为统计字段,format为格式,kind为统计方法,position 为位子spfooter 在分组的下面,spgroup 在分组的上面或用cxGridPopupMenu1,在運行時可對任意數字類型列求和,方法是只需設置cxGridPopupMenu1的屬性Grid為cxGrid1DBTableView1的cxGrid,即可實現您所需功能5. DEV Express里的cxGrid默认的数值格式带￥，怎么去掉啊！雙擊Cxgrid，選擇colmnum改變類型options.properties.Memo,在displayformat中进行设置6. 在网格最后一行的最后一格回车自动增加一条记录,并跳到新记录的第一格设置cxGrid1DBTableView1的OptionsBehavior的FocusFirsCellOnNewRecord与GoToNextCellOnEnter为True,FocusCellOnCycle设为True7. 网格中通过T ab跳转,设置cxGrid1DBTableView1的OptionsBehavior的FocusCellOnTab为True8. 设置是否能够在网格中编辑数据,设置cxGrid1DBTableView1的OptionsData的Appending设为True,Deleting为True,Editing 为True9. 设置是否能选中网格,设置cxGrid1DBTableView1的OptionsSelection的CellSelect为True10. 设置是否能够反选,设置cxGrid1DBTableView1的OptionsSelection的InsertSelect为True11. 设置行高:在cxGridDBTableView1.OptionsView.DataRowHeight12. 改变字体在cxStyleRepository 双击它，在里面添加GridTableViewStyleSheetDevExpress然后改变Style标签里面的cxStyle的字体就可以控制cxGrid的字体了13. 有图片和MEMO的例子：拖入一个cxGrid1，Table1，DataSource1。
DELPHI第三方控件及组件大全（安装方法与使用）
DELPHI第三⽅控件及组件⼤全（安装⽅法与使⽤）⼀，DELPHI第三⽅控件安装⽅法介绍1、对于单个控件，Componet–>install component..–>PAS或DCU⽂件–>install;2、对于带*.dpk⽂件的控件包，File–>Open(下拉列表框中选*.dpk)–>install即可；3、对于带*.bpl⽂件的控件包，Install Packages–>Add–>bpl⽂件名即可；4、如果以上Install按钮为失效的话，试试Compile按钮；5、是run time lib则在option下的packages下的runtimepackes加之。
如果编译时提⽰⽂件找不到的话，⼀般是控件的安装⽬录不在Delphi的Lib⽬录中，有两种⽅法可以解决：1、反安装的源⽂件拷⼊到Delphi的Lib⽬录下；2、或者Tools–>Environment Options中把控件源代码路径加⼊到Delphi的Lib⽬录中即可。
注意：所安装的控件是否与你所⽤的Delphi版本相适应。
----------------------------------------------------------------控件删除在Component/Install Packages中删除。
选Component/configure Palette…有pages和components两个区域双击components区域，选中要删除得控件，下⾯有得Delete按钮但系统提供的控件只能Hide，不能delete。
打开控件所在的包⽂件(*.dpk)，从中删除控件那个⽂件，再重新编译该包即可。
如果是整个控件包都要删除的话,project→Option→Packages,删掉那个packages,收⼯。
----------------------------------------------------------------⼆，由于组件提供的⽅式不同，所以安装的⽅法也是不⼀样的，下⾯就⽬前常见的各种形式的组件的安装⽅法介绍⼀下。
delphiDBNaVigator组件的使用方法
delphi DBNaVigator组件的使用方法DBNavigator组件用于在数据集进行记录导航，当用户单击DBNaVigator组件的某个按钮时，可实现记录指针的前移、后移，插入…删除、修改当前记录等操作，而无须编写任何程序代码。
1. DBNavigator组件按钮功能First按钮将指针移到数据表的第一条记录。
Previous按钮将指针前移一条记录oNext按钮将指针后移一条记录。
Last按钮将指针移到数据表的最后一条记录。
Insert按钮在当前记录前插入一条新记录，并将数据集组件置于插人状态。
Delete按钮删除当前记录。
Edit按钮将数据集置于编辑状态。
Post按钮提交对当前记录的修改。
Cancel 按钮取消对当前记录的修改。
Refresh按钮清除数据浏览组件的显示缓冲区，并用与其相连的数据集组件中的记录刷新显示缓冲区。
2. 主要属性(1)VisibleButtons属性该属性用于隐藏或显示DBNavigator组件的按钮。
单击该属性前的“+"号，出现许多子属性：nbFirst、nbPrior、nbNext、nbLast、nbAdd、nb‟Delete、mbEdit、nbPost、nbCancel、nbRefresh。
选择子属性为True则相应的按钮就会显示出来，若选择子属性为False则相应的按钮就会隐藏。
例如，在查询系统中，只需要4个按钮First、Prior、Next、Last，此时只需要将前4个子属性设置为:True，其余属性设为False即可。
(2)ShowHint属性ShowHint属性值为true，则显示DBNavigator组件各按钮的动态提示信息；值为False，则不显示DBNavigator组件各按钮的动态提示信息。
(3)Hints属性Hints属性用于设置DBNavigator‟组件各按钮的动态提示信息。
单击‟rString右边的省略按钮，进入动态提示信息编辑框，在框内输人各按钮的动态提示信息，如输入：“第一条记录”、“前一个记录"、“后一个记录”、“最后一个记录”等，按OK按钮后，将ShowHint属性设置为‟lTrue，则程序执行后，当鼠标移动到第一个按钮上时会动态提示“第一条记录"。
delphi openpicturedialog1用法
delphi openpicturedialog1用法
Delphi里的OpenPictureDialog1组件是一个可视化的对话框组件，用于打开图片文件。
它可以非常方便地帮助开发者在程序中实现打开图片文件的功能。
使用OpenPictureDialog1组件的方法非常简单，只需按照以下步骤即可：
1. 添加OpenPictureDialog1组件
打开Delphi的窗体设计器，双击组件面板中的OpenPictureDialog1组件，将其添加到窗体上。
2. 设计OpenPictureDialog1组件的属性
在属性面板中，可以对OpenPictureDialog1组件的属性进行设置。
例如，可以设置对话框的标题、初始路径、过滤器等。
3. 编写代码
在程序中需要使用OpenPictureDialog1组件时，可以在代码中使用以下语句：
if OpenPictureDialog1.Execute then
begin
//打开文件成功
end;
这条语句表示如果用户选择了一个文件并点击了“确定”按钮，则返回True，程序就可以执行相应的操作。
4. 获取文件名
在执行OpenPictureDialog1.Execute后，可以通过以下语句获取用户选择的文件名：
OpenPictureDialog1.FileName;
这条语句返回用户选择的文件的完整路径和文件名，可以将其用于程序中的操作。
总之，Delphi OpenPictureDialog1组件是一个非常实用的工具，可以帮助开发者快速实现打开图片文件的功能。
掌握其使用方法可以更加方便地开发出高效的应用程序。
DELPHI基础教程：数据访问部件的应用及编程（三）[4]
![DELPHI基础教程：数据访问部件的应用及编程（三）[4]](https://img.taocdn.com/s3/m/d082fb96fc0a79563c1ec5da50e2524de518d03f.png)
DELPHI基础教程：数据访问部件的应用及编程（三）[4]增加字段部件字段编辑器Fields Editor中的Add Fields菜单项用于向数据集部件中增加字段部件的单击Add Fields菜单项时便会打开增加字段部件对话框如图所示 Available Fields列表框中显示出数据集部件TTable 或TQuery中当前可以用于创建永久字段部件的全部的字段也就是说Available Fields列表框中显示字段是数据库表中实际存在的字段而且还没有为这些字段创建相应的永久性的字段部件在缺省状态下所有的字段都被选择用于创建相应的永久性的字段部件用鼠标单击其中的字段名可以有选择地创建其相应的永久性的字段部件选择好有关的字段名之后单击OK按钮便可以创建永久性的字段部件字段编辑器的增加字段部件对话框删除字段部件用字段编辑器Fields Editor为数据集部件创建好的字段部件都会显示在字段编辑器的Fields列表框中如果用户认为其中的一些字段部件不合适或不再需要时可以单击这些不需要的字段部件然后单击鼠标右键弹出一佣弹出式菜单从弹出式菜单中选择Delete菜单项便可删除相应的字段部件如果在弹出式菜单中单击Select All菜单项然后选择Delete菜单项这样会删除已创建好的所有的字段部件某一个字段部件被删除以后通过单击Add Fields菜单项可以重新创建只是先前为该字段部件设定的一些属性将不复存在定义新的字段部件字段编辑器Fields Editor中的弹出式菜单中New Fields菜单项是用来为数据集部件TTable或TQuery创建用于显示目的的新的字段部件我们可以用它来为数据库表中实际存在的字段创建新的字段部件（如改变字段的数据类型使它的字段值被显示时不再需有关的类型转换）但是我们使用New Fields菜单项创建新的字段部件主要是创建计算字段计算字段并不与数据库表中实际存在的字段对应它的字段值是根据表中其它的字段值计算而来的具体的计算表达式由用户为TTable部件或TQuery部件的OnCalCFields事件编写程序代码时决定定义（创建）计算字段的过程如下单击字段编辑器中的New Fields菜单项定义字段对话框如图所示在FieldName编辑框中输入新字段部件的名字或者从下拉式列表框中选择一个已存在的字段部件的名字在FieldType列表框中为新字段部件选择一个字段类型单击Calculated检查框确认定义的新字段部件是计算字段单击ok按钮创建上述定义的计算字段部件此时该字段部件的名字会自动地加入到字段编辑中的Fields列表框中创建新的计算字段新的计算字段创建好了之后它是没有任何字段值的我们必须要编写相应的程序代码根据数据库表中实际存在的字段的字段值为计算字段的宝定义字段值我们为计算字段所在数据集部件的OnCalcFields事件编写代码来为计算字段赋值其步骤如下选择数据集部件TTable或TQuery单击数据集部件的事件页双击OnCalcFields事件为TTable或TQuery部件编写事件处理过程TReport部件及其应用在一般的数据库应用程序中都包含着为最终用户提供输出报表的功能使用Delphi开发数据库应用程序时可以使用一个叫TReport的部件来执行报表功能的报表的具体格式和内容是由Delphi提供的一个专用报表生成工具ReprotSmith创建的它报表的具体格式和内容生成一个报表文件然后为TReport部件设置相应的属性参数由TReport 部件执行报表功能我们可以在设计阶段双击TReport部件调用ReportSimith工具或者在Delphi程序组内双击ReportSmith图标来调用ReportSmith 工具来创建一个报表文件具体的操作步骤和设计方法请参看ReportSimth工具的使用说明我们在使用TReport部件执行报表功能时要设置TReport部件的一些的一些属性这些属性是ReportName属性说明报表文件的名字就是用ReportSmith创建的报表文件ReportDir属性说明报表文件所在的途径名PreView属性这是一个布尔型属性若它的值为True 那么在执行报表功能时只是在屏幕上显示报表若它的值为False 则报表内容将在缺省的打印机打印出来AutoUnload属性布尔型属性它的值为True时在执行完一个报表功能后自动地从内存中卸出ReportSmith工具它的值为False时在运行完一个报表功能后不从内存中卸出ReportSmith工具一般情况下如果应用程序只有一个报表或者只有较少的报表要输出时应设置AutoUnload属性为True 如果应用程序一次要输出多个报表那么要应设置AutoUnload属性为FalseInitialValues属性这是一个字符串类型的属性它是说明报表文件中使用的变量每一条说明一个变量如ReportVAR := Value;要详细了解创建和使用报表变量的过程请参看创建报表一节TReport部件要真正执行报表功能以输出一个报表需要调用Run 方法如下所示Report Run;TReport部件所具有的重要方法如表所示表 TReport部件的方法━━━━━━━━━━━━━━━━━━━━━━━━━━━━方法功能────────────────────────────Run 执行报表功能输出报表RunMacro 发送一个宏命令给Reportimith工具Connect 预先连接报表文件和数据库在输出报表时不需要登录到数据库SetVariable 改变说明的报表变量ReCalcReport 当报表变量改变以后重新输出报表━━━━━━━━━━━━━━━━━━━━━━━━━━━━还有一些其他的数据访问部件如TBatchMove部件它主要用在两个数据库表之间移动或拷贝帆数据记录具体的使用请参看本地SQL服务器的使用应用举例多个窗体显示同一个数据库表在应用当中我们常常需要以不同的视图显示同一个数据库表中的内容例如要在两窗体中同时显示一个数据库表中一个记录的不同字段时我们必须要想办法使两个窗体中的数据浏览部件同步地显示数据库表中的同一条记录的不同字段的值要想做到以不同的视图显示同一个数据库表中的记录下面两条规则是很重要的● 多个TDataSource部件能够同时访问同一个数据集部件● 在多个窗体中显示同一个表时必须为每个窗体设置一个TDataSource部件只须为其中的一个窗体设置一个TTable部件例如如果想在窗体Form 和Form 中同时显示一个数据库表的记录最简单可行的办法是为Form 和Form 各设置一个TDataSource 部件叫DataSource DataSource 并在Form 中设置一个TT able部件Table 连接Form 中的Datasource 和Table 在程序运行过程中设置Form 中的DataSource 的DataSet属性为Form 中的Table 代码如下Format DataSource Dataset := Form Table ;这样当Table 被打开时两个窗体中便可以同步地显示数据库表中的同一条记录了一个名叫OForms DPR的例子在C:\Delphi\DEMos\DB\TwoForms中（如果Delphi安装在其它的磁盘驱动器中从相应的磁盘驱动器中可以找到该例子）它演示了在两个窗体中显示同一个数据库表的记录应用程序在第一个窗体中打开Contry DB表并在窗体中显示Name Captial和Continent字段在第二个窗体中显示Area和Population字段在第一个窗体中有一个按钮用于打开第二个窗体两个窗体中都有TDBNavigator部件用于记录的导航返回目录 DELPHI基础教程编辑推荐Java程序设计培训视频教程J EE高级框架实战培训视频教程Visual C++音频/视频技术开发与实战Oracle索引技术ORACLE G数据库开发优化指南Java程序性能优化让你的Java程序更快更稳定C嵌入式编程设计模式Android游戏开发实践指南lishixinzhi/Article/program/Delphi/201311/25156。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Delphi 组件使用及其代码1.数组定义(1)一维数组数组名：array[n1 . . n2] of 数据类型；(2)二维数组数组名：array[n1 . . n2，m1 . . m2] of 数据类型；或者数组名：array[n1 . . n2] of array[m1 . . m2] of 数据类型；(3)动态数组数组名：array of 数据类型；使用前要用SetLength（数组名，数组长度）；来动态申请空间。
2.使用math数学函数：需要在uses引用里面添加math;其中power(a,b)函数是求a的b次幂。
RandomRange(a,b)函数是随机产生一个a、b之间的数。
3.声明全局变量需要在implementation之后声明；初始化格式需要在最后一个end之后：语句：initialization赋值语句;4.常量在var后使用const关键字声明常量：如const PI = 3.14；5.枚举类型使用声明：type 枚举类型名=（枚举值1，枚举值2，……）；定义：var 变量名：枚举类型名；6.指针类型（1）@运算符：放在变量的前面，获得变量的地址；^ 运算符：放在指针变量的后面，取得该指针变量中所存放地址变量的数据；（2）声明：type 指针类型名= ^数据类型；var 指针变量名：指针类型名；或者var 指针变量名：^数据类型；7.日期时间函数function Now：TDateTime；//返回系统当前日期和时间function Date：TDateTime；//返回系统当前日期function Time：TDateTime；//返回系统当前时间function DateTimeToStr（DateTime：TDateTime）：string；//将日期时间数据转换为字符串function StrToDateTime（const s：string）：TDateTime；//将字符串转换为日期时间数据function DateToStr（DateTime：TDateTime）：string；//将日期数据转换为字符串function TimeToStr（DateTime：TDateTime）：string；//将时间数据转换为字符串function FormatDateTime（const Format：string；DateTime：TDateTime）：string；//按指定格式输出日期时间例如：formatDatetime（‘yyyy-mm-dd’,now）;formatDatetime（‘hh:mm:ss’,now）;8.自定义过程（1）在type下声明：procedure <过程名>（<参数列表>）；（2）将光标移动定位在过程声明中，按Ctrl+Shift+C，实现自动生成部分过程框架。
procedu re <过程名>（<参数列表>）<局部变量声明>；begin<过程体语句>；end；（3）自定义过程的调用：过程名（<实参表>）；9.自定义函数（1）函数不用声明；（2）function<函数名> [（<参数列表>）]：<返回类型>；<局部变量声明>；begin<函数语句>；end；（3）自定义函数的调用：函数名（实参表）；10.对话框函数MessageDlg（1）<变量>：=MessageDlg（‘信息内容’，类型，[按钮组]，HelpCex）；（2）类型：mtWarning 含有感叹号符号的警告对话框mtError 含有红色差号符号的错误对话框mtInformation 含有蓝色i符号的信息对话框mtConfirmation 含有蓝色？符号的确认对话框mtCustom 不含图标的一般对话框，对话框的标题是程序的名称按钮组：mbYes Yes按钮，函数返回mrYes或6mbNo No按钮，函数返回mrNo或7mbOk Ok按钮，函数返回mrOk或1mbCancel Cancel按钮，函数返回mrCancel或2mbHelp Help按钮mbAbort Abort按钮，函数返回mrAbort或3mbRetry Retry按钮，函数返回mrRetry或4mbIgnore Ignore按钮，函数返回mrIgnore或5mbAll All按钮，函数返回mrAll或8mbNoToAll NoToAll按钮，函数返回mrNoToAll或9mbYesToAll YesToAll按钮，函数返回mrYesToAll或10HelpCtx指定当用户单击“Help”按钮或<F1>键时，现实的帮助主题。
例如：if MessageDlg('您确定要关闭窗口吗？',mtConfirmation,[mbYes,mbNo],0)=mryes then 11..基本知识点（1）if (key in ['0','1'..'9',#13,#8]) then //判断按下的是否为数字键、回车键和退格键#0表示没有任何内容#32表示空格（2）Delphi中Randomize方法用来随机初始化数据。
（3）Label的Transparent属性用来设置Label的显示方式是否透明显示。
（4）StringGrid属性Cells【A,B】，其中A控制列，B控制行。
（5）MessageBox显示消息：MessageBox(句柄，消息，消息框名，类型) 例如：MessageBox（0，PChar（‘你好’+edit1.text），‘欢迎你’，MB_OK）MessageBox（0，PChar（‘你好’+edit1.text），‘提示’，MB_ICONASTERISKand MB_ICONINFORMA TION）//提示框MessageBox（0，PChar（‘密码不能为空！’），‘警告’，MB_ICONEXCLAMA TION）//警告框12.制作闪现窗体在Project->option中将闪现窗体设置为Available forms,之后显示的主窗体设置为Auto-create forms，并在主窗体的form的create事件中加入以下代码：（1）先声明一个闪现窗体的变量：如About：=TForm2;主窗体代码：About:=TForm2.Create(Application);//生成闪现窗体About.show; //显示闪现窗体（2）闪现窗体加入一个Timer事件，并在Timer的Timer事件中加入下面代码：close; //关闭窗体Release; //释放变量注意：可用Timer的Interval控制闪现窗体出现的事件，以毫秒为单位。
13.SavaDialog组件（1）过滤文件：Filter(2)保存文件默认后缀名DefaultExt属性填写后缀名，注意不要加‘.’;(3)保存代码：if savedialog1.Execute thenbeginmemo1.Lines.SaveToFile(form1.SaveDialog1.FileName);application.MessageBox('文件保存成功!','提示!',64);end;14.复制、移动文件（1）复制文件CopyFile('d:\db\123.txt','f:\db\123.txt',False);WinExec('cmd /c copy d:\db\123.txt f:\db\123.txt',0);使用以上函数目标目录必须存在！CopyFile(源文件路径,目标文件路径,False（存在覆盖）True（存在不覆盖）);（2）移动正在使用的文件MoveFileEx（所要移动的文件路径（及文件名），目标文件的路径（和文件名），移动标记）；移动标记取值：MOVEFILE_REPLACE_EXISTING=$00000001;//覆盖已经存在的文件，来源文件和目标不能在同一目录MOVEFILE_COPY_ALLOWED=$00000002;//如果目标文件被移动到不同的卷上，则函数通过拷贝后删除来源文件的方法来模拟移动文件MOVEFILE_DELAY_UNTIL_REBOOT=$00000004;//在系统重新启动后再执行移动操作，这个参数只能被拥有管理员权限或localsystem权限的程序使用，不能和MOVEFILE_COPY_ALLOWED一起使用。
MOVEFILE_WRITE_THROUGH=$00000008;//这个标记允许函数在执行完文件移动后才返回，否则不等文件移动完毕后就直接返回。
如果设置了MOVEFILE_DELAY_UNTIL_REBOOT标记，则MOVEFILE_WRITE_THROUGH标记将被忽略。
MOVEFILE_CREATE_HARDLINK=$00000010;//系统保留，以供将来使用。
MOVEFILE_FAIL_IF_NOT_TRACKABLE=$00000020;//如果来源文件为1个link文件，但是文件在移动后不能够被tracked，则函数执行失败。
如果目标文件在一个fat格式的文件系统上，则上述情况可以发生。
该参数不支持NT系统。
15.在系统菜单中添加菜单项i:=GetSystemMenu(Handle,False); //获取窗体的句柄AppendMenu(i,MF_SEPARATOR,0,nil);//添加分割线AppendMenu(i,MF_STRING,100,'我的菜单(&E)');//添加菜单项16.创建和删除文件夹DirectoryExists(路径) ;//判断文件夹是否存在ForceDirectories(路径); //创建文件夹mkdir(路径);//创建一个指定的目录RmDir(路径); //删除文件夹17.建立临时文件function GetTempFileName(建立临时文件路径,临时文件的前缀（识别前3位），用于建立临时文件的号码，返回建立的临时文件名称)例如：GetTempFileName(PChar(dir),'TEST',0,Temp);//生成临时文件名18.把文件删除到回收站（注意：需要引用shellAPI单元）首先：varSHFile：SHFILEOPSTRUCT;with SHFile dobeginWnd:=0; //拥有者窗口句柄wFunc:=FO_DELETE;//文件操作功能，可选项FO_COPY、FO_DELETE、FO_MOVE、FO_RENAMEpFrom:=PChar(DFile); //源文件//pto 目标文件fFlags:=FOF_ALLOWUNDO; //文件控制标志//fAnyOperationsAborted 用户是否中断操作//hNameMapping 指向一个SHNAMEMAPPING结构的指针lpszProgressTitle:='将文件删除到回收站'; //进程标题end;SHFileOperation(SHFile);//删除文件，需要引用shellAPI单元19.引用动态链接库（DLL文件使用）（1）静态引用动态链接库在implementation后function 名称():Integer;stdcall;external 'XX.dll';（2）动态引用动态链接库1）LoadLibrary函数用于载入指定的动态链接库，并将它映射到当期进程使用的地址空间。