历史上最全的delphi技巧集锦之二

16、SaveDialog1确认文件存不存在的办法？

答：

procedure TForm1.SaveDialog1CanClose(Sender: TObject;

var CanClose: Boolean);

begin

if FileExists(SaveDialog1.FileName) then //如果文件已经存在

if MessageDlg('文件已经存在，保存吗？', mtConfirmation, [mbYes, mbNo], 0) <> mrYes then

Button2.Click //如果选择了覆盖，则退出，否则，重新让用户选择文件

end;

==============================================================================

17、正确关闭一个MDI子窗口？

答：

Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例：

procedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caFree;

end;

　　Delphi为一个Form的关闭行为指定了四种方式，分别是：

caNone 禁止Form被关闭

caHide Form不被关闭，但是被隐藏。被隐藏的Form仍然可以被程序访问。

caFree Form被关闭，并且释放其占用的资源。

caMinimize Form被最小化而不是被关闭，这是MDI子窗口的默认关闭行为。

==============================================================================

18、怎样记MDI子窗口不在母体运行时就被打开？

答：

在project下的options中forms里面除了form1外，其余的移到右边的框里，然后在调用显示的按钮下编写语句，以form2调用为例：

form2:=Tform2.create(self);

form2.show;

==============================================================================

19、限制FORM的大小

答：

在FORM私有声明部分加上如下一行：

procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo message WM_GETMINMAXINFO;

在声明部分加上如下几行:

procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo

begin

with Message.MinMaxInfo^ do

begin

ptMaxSize.X := 200; {最大化时宽度}

ptMaxSize.Y := 200; {最大化时高度}

ptMaxPosition.X := 99; {最大化时左上角横坐标}

ptMaxPosition.Y := 99; {最大化时左上角纵坐标}

end;

Message.Result := 0; {告诉Windows你改变了 minmaxinfo}

inherited;

end;

==============================================================================

20、随机数生成法

答：

Randomize;

rn:=inttostr(random(9999));

rn1:=inttostr(random(9999));

.....

==============================================================================

21、怎样把程序隐藏起来，在WINDOWS界面上没有显示？？

答：

在application.run之前加入application.showmain:=false!

==============================================================================

22、怎样将一个form1.free的form1窗体重新显示？

答：

form2:=TForm2.Create(application);

form2.Show;

如果你要创建的Form2窗体能嵌入一个Panel中，指定Parent:

form2:=TForm2.Create(application);

form2.Parent:=panel1;

form2.Show;

==============================================================================

23、我想在bitbtn上设快捷按钮Esc，怎么办？

答：

procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=27 then

application.Terminate;

end;

设它的cancel属性为true就行了~~

==============================================================================

24、什么叫做托盘区？

答：

托盘区就是在windows的状态栏下方显示时钟、输入法状态的地方，

要把你的程序显示在托盘区：

下面是一个托盘类，只要把下面粘贴到文本文件中，改成TrayIcon.pas，使用时uses TrayIcon就可以了。

先声明一个全局变量：

var tray:TTrayNotifyIcon;

然后在窗体的OnCreate事件中：

tray:=TTrayNotifyIcon.Create(self);//将窗体创建为托盘

tray.Icon:=application.Icon;//定义托盘的显示图标

tray.IconVisible:=true;//托盘可见

tray.PopupMenu:=popmenu;//给托盘定义一个右击时的弹出菜单

tray.OnDblClick:=trayDblClick;//给托盘定义一个双击事件(当然要自己写了，不过多数情况只有一行，就是Form1.show);

unit TrayIcon;

interface

uses Windows, SysUtils, Messages, ShellAPI, Classes, Graphics, Forms, Menus,

StdCtrls, ExtCtrls;

type

ENotifyIconError = class(Exception);

TTrayNotifyIcon = class(TComponent)

private

FDefaultIcon: THandle;

FIcon: TIcon;

FHideTask: Boolean;

FHint: string;

FIconVisible: Boolean;

FPopupMenu: TPopupMenu;

FonClick: TNotifyEvent;

FOnDblClick: TNotifyEvent;

FNoShowClick: Boolean;

FTimer: TTimer;

Tnd: TNotifyIconData;

procedure SetIcon(Value: TIcon);

procedure SetHideTask(Value: Boolean);

procedure SetHint(Value: string);

procedure SetIconVisible(Value: Boolean);

procedure SetPopupMenu(Value: TPopupMenu);

procedure SendTrayMessage(Msg: DWORD; Flags: UINT);

function ActiveIconHandle: THandle;

procedure OnButtonTimer(Sender: TObject);

protected

procedure Loaded; override;

procedure LoadDefaultIcon; virtual;

procedure Notification(AComponent: TComponent;

Operation: TOperation); override;

public

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

published

property Icon: TIcon read FIcon write SetIcon;

property HideTask: Boolean read FHideTask write SetHideTask default False;

property Hint: String read FHint write SetHint;

property IconVisible: Boolean read FIconVisible write SetIconVisible default False;

property PopupMenu: TPopupMenu read FPopupMenu write SetPopupMenu;

property onClick: TNotifyEvent read FonClick write FonClick;

property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;

end;

implementation

{ TIconManager }

{ This class creates a hidden window which handles and routes }

{ tray icon messages }

type

TIconManager = class

private

FHWindow: HWnd;

procedure TrayWndProc(var Message: TMessage);

public

constructor Create;

destructor Destroy; override;

property HWindow: HWnd read FHWindow write FHWindow;

end;

var

IconMgr: TIconManager;

DDGM_TRAYICON: Cardinal;

constructor TIconManager.Create;

begin

FHWindow := AllocateHWnd(TrayWndProc);

end;

destructor TIconManager.Destroy;

begin

if FHWindow <> 0 then DeallocateHWnd(FHWindow);

inherited Destroy;

end;

procedure TIconManager.TrayWndProc(var Message: TMessage);

{ This allows us to handle all tray callback messages }

{ from within the context of the component. }

var

Pt: TPoint;

TheIcon: TTrayNotifyIcon;

begin

with Message do

begin

{ if it’s the tray callback message }

if (Msg = DDGM_TRAYICON) then

begin

TheIcon := TTrayNotifyIcon(WParam);

case lParam of

{ enable timer on first mouse down. }

{ onClick will be fired by OnTimer method, provided }

{ double click has not occurred. }

WM_LBUTTONDOWN: TheIcon.FTimer.Enabled := True;

{ Set no click flag on double click. This will supress }

{ the single click. }

WM_LBUTTONDBLCLK:

begin

TheIcon.FNoShowClick := True;

if Assigned(TheIcon.FOnDblClick) then TheIcon.FOnDblClick(Self);

end;

WM_RBUTTONDOWN:

begin

if Assigned(TheIcon.FPopupMenu) then

begin

{ Call to SetForegroundWindow is required by API }

SetForegroundWindow(IconMgr.HWindow);

{ Popup local menu at the cursor position. }

GetCursorPos(Pt);

TheIcon.FPopupMenu.Popup(Pt.X, Pt.Y);

{ Message post required by API to force task switch }

PostMessage(IconMgr.HWindow, WM_USER, 0, 0);

end;

end;

end;

end

else

{ If it isn’t a tray callback message, then call DefWindowProc }

Result := DefWindowProc(FHWindow, Msg, wParam, lParam);

end;

end;

{ TTrayNotifyIcon }

constructor TTrayNotifyIcon.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

FIcon := TIcon.Create;

FTimer := TTimer.Create(Self);

with FTimer do

begin

Enabled := False;

Interval := GetDoubleClickTime;

OnTimer := OnButtonTimer;

end;

{ Keep default windows icon handy... }

LoadDefaultIcon;

end;

destructor TTrayNotifyIcon.Destroy;

begin

if FIconVisible then SetIconVisible(False); // destroy icon

FIcon.Free; // free stuff

FTimer.Free;

inherited Destroy;

end;

function TTrayNotifyIcon.ActiveIconHandle: THandle;

{ Returns handle of active icon }

begin

{ If no icon is loaded, then return default icon }

if (FIcon.Handle <> 0) then

Result := FIcon.Handle

else

Result := FDefaultIcon;

end;

procedure TTrayNotifyIcon.LoadDefaultIcon;

{ Loads default window icon to keep it handy. }

{ This will allow the component to use the windows logo }

{ icon as the default when no icon is selected in the }

{ Icon property. }

begin

FDefaultIcon := LoadIcon(0, IDI_WINLOGO);

end;

procedure TTrayNotifyIcon.Loaded;

{ Called after component is loaded from stream }

begin

inherited Loaded;

{ if icon is supposed to be visible, create it. }

if FIconVisible then

SendTrayMessage(NIM_ADD, NIF_MESSAGE or NIF_ICON or NIF_TIP);

end;

procedure TTrayNotifyIcon.Notification(AComponent: TComponent;

Operation: TOperation);

begin

inherited Notification(AComponent, Operation);

if (Operation = opRemove) and (AComponent = PopupMenu) then

PopupMenu := nil;

end;

procedure TTrayNotifyIcon.OnButtonTimer(Sender: TObject);

{ Timer used to keep track of time between two clicks of a }

{ double click. This delays the first click long enough to }

{ ensure that a double click hasn’t occurred. The whole }

{ point of these gymnastics is to allow the component to }

{ receive onClicks and OnDblClicks independently. }

begin

{ Disable timer because we only want it to fire once. }

FTimer.Enabled := False;

{ if double click has not occurred, then fire single click. }

if (not FNoShowClick) and Assigned(FonClick) then

FonClick(Self);

FNoShowClick := False; // reset flag

end;

procedure TTrayNotifyIcon.SendTrayMessage(Msg: DWORD; Flags: UINT);

{ This method wraps up the call to the API’s Shell_NotifyIcon }

begin

{ Fill up record with appropriate values }

with Tnd do

begin

cbSize := SizeOf(Tnd);

StrPLCopy(szTip, PChar(FHint), SizeOf(szTip));

uFlags := Flags;

uID := UINT(Self);

Wnd := IconMgr.HWindow;

uCallbackMessage := DDGM_TRAYICON;

hIcon := ActiveIconHandle;

end;

Shell_NotifyIcon(Msg, @Tnd);

end;

procedure TTrayNotifyIcon.SetHideTask(Value: Boolean);

{ Write method for HideTask property }

const

{ Flags to show application normally or hide it }

ShowArray: array[Boolean] of integer = (sw_ShowNormal, sw_Hide);

begin

if FHideTask <> Value then

begin

FHideTask := Value;

{ Don’t do anything in design mode }

if not (csDesigning in ComponentState) then

ShowWindow(Application.Handle, ShowArray[FHideTask]);

end;

end;

procedure TTrayNotifyIcon.SetHint(Value: string);

{ Set method for Hint property }

begin

if FHint <> Value then

begin

FHint := Value;

if FIconVisible then

{ Change hint on icon on tray notification area }

SendTrayMessage(NIM_MODIFY, NIF_TIP);

end;

end;

procedure TTrayNotifyIcon.SetIcon(Value: TIcon);

{ Write method for Icon property. }

begin

FIcon.Assign(Value); // set new icon

{ Change icon on notification tray }

if FIconVisible then SendTrayMessage(NIM_MODIFY, NIF_ICON);

end;

procedure TTrayNotifyIcon.SetIconVisible(Value: Boolean);

{ Write method for IconVisible property }

const

{ Flags to add or delete a tray notification icon }

MsgArray: array[Boolean] of DWORD = (NIM_DELETE, NIM_ADD);

begin

if FIconVisible <> Value then

begin

FIconVisible := Value;

{ Set icon as appropriate }

SendTrayMessage(MsgArray[Value], NIF_MESSAGE or NIF_ICON or NIF_TIP);

end;

end;

procedure TTrayNotifyIcon.SetPopupMenu(Value: TPopupMenu);

{ Write method for PopupMenu property }

begin

FPopupMenu := Value;

if Value <> nil then Value.FreeNotification(Self);

end;

const

{ String to identify registered window message }

TrayMsgStr = ’DDG.TrayNotifyIconMsg’;

initialization

{ Get a unique windows message ID for tray callback }

DDGM_TRAYICON := RegisterWindowMessage(TrayMsgStr);

IconMgr := TIconManager.Create;

finalization

IconMgr.Free;

end.

==============================================================================

25、关于窗体释放的问题(formX.free)？

答：

这个我知道,模式窗口用:form2 := TForm2.Create(Application);

try

if form2.showModal = mrOK then

{do Something}

finally

form2.free;

form2 := nil;

end; 非模式窗口用:if not Assigned(form2) then

form2 := Tfrom2.Create(Application);

form2.show;

//然后在form2的Close事件中加入以下句

Action := caFree;

//在from2的Destory事件中加入以下句

form2 := nil; 搞定!!!

==============================================================================

26、关于MDI窗体的问题？

答：

我不知道是如何实现,但我知道一个方法可以实现同样的功能,在打开子窗体前加一句

button1.SendToBack;

==============================================================================

27、小数点'.'的键号是什么？回车是#13，'.'是什么？

答：

你可以用此得出所有键的值procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

label1.caption:=IntToStr(key);

end;

=============================================================================

listbox从文件中读取列表的操作

ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'aaa.txt');

ListBox1.Items.Add(Edit1.Text); //添加了一个项目

ListBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'aaa.txt');

删除项目ListBox1.Items.Delete(listbox1.itemindex);

------------------------------------

判断窗体是否已经打开

if frmPriceInput <> nil then ....

注意：有时窗体虽然已经关闭，但没完全释放，最好在该窗体关闭的CLOSE事件里加入 frmPrintInput = nil;

------------------------------------

关闭MDI子窗口的方法

在子窗口的OnClose事件处理过程中加入如下代码

Action := caFree;

Delphi为一个Form的关闭行为指定了四种方式，分别是：

caNone -- 禁止Form被关闭

caHide -- Form不被关闭，但是被隐藏。被隐藏的Form仍然可以被程序访问。

caFree -- Form被关闭，并且释放其占用的资源。

caMinimize -- Form被最小化而不是被关闭，这是MDI子窗口的默认关闭行为。

------------------------------------

系统配置文件 *.INI 的操作

头部要引用IniFiles

1、声明变量

IniFile:TiniFile;

2、指明路径

IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'option.ini');

3、读取变量,注意变量有类型之分readstring,readinteger...等

titleBMPFile:=IniFile.ReadString('TitleImage','FileName',');

//IniFile.ReadString('组名','变量','默认值')

IniFile.ReadInteger

IniFile.ReadBool

4、写入或修改变量

IniFile.WriteString('标题','变量1','值');

5、用完后释放

IniFile.Free;

------------------------------------

动态读取图象

Image1.Picture.LoadFromFile(titleBMPFile);

------------------------------------

fastreport自定义函数的用法

1、先在普通工程窗体上定义好函数

2、在frreport控件的userfunction中写入

if ansicomparetext( 'My_StrToRMB' , Name = 0 then

val:=My_StrToRMB(frparser.Calc(p1));

//MY_STRTORMB是函数名

//如果定义多个函数，就多来几个IF即可。

在报表设计视图中就可以调用这个函数了。

------------------------------------

数组是这样定义的sbh:array [0..9999999,0..1] of string;

------------------------------------

treeview的用法

//先定义项目序数和节点

n: Integer;

Node: TTreeNode;

Node := Tree1.Selected;

if (Node = nil) or (Node.StateIndex = -1) then Exit;//一般可以把不作反应的列的stateindex定为-1

n := Node.StateIndex;

------------------------------------

Fields[] 通过索引返回字段,要自己選擇返回的類型!

FieldByName() 通过名字返回字段,要自己選擇返回的類型!

FieldValues[] 通过名字返回字段的值,自動化類型!

------------------------------------

调用外部程序方法

用ShellExecute，在USES段加入SHELLAPI，使用时如：

ShellExecute(handle,'open','c:\myapp\myapp.exe','-s',',SW_SHOWNORMAL);

第一个参数为父窗口句柄；

第二个参数为打开方式（OPEN，PRINT两种）；

第三个参数为执行文件全路径；

第四个参数为执行文件参数；

第五个参数为执行文件开始运行时的初始目录；

第六个参数为为执行文件运行方式(SW_HIDE,SW_MAXIMIZE,SW_MINIMIZE,

SW_RESTORE,SW_SHOW,SW_SHOWDEFAULT,SW_SHOWMAXIMIZED,SW_SHOWMINIMIZED,

SW_SHOWMINNOACTIVE,SW_SHOWNA,SW_SHOWNOACTIVATE,SW_SHOWNORMAL);

------------------------------------

判断文件是否存在

if not fileexists('db2.mdb.bak') then ...

------------------------------------

判断按键

if Key=#13 then //如果回车则。。。

------------------------------------

退出

关闭窗口 close;

关闭程序：Application.Terminate;

退出事件 exit;

------------------------------------

检测软件是否已在运行

if GetLastError = ERROR_ALREADY_EXISTS then...

------------------------------------

定义函数是这样写的

function IsReadOnly(b: Boolean; colors: Tcolor): Boolean;

------------------------------------

fastreport直接打印

FrReport1.PrepareReport; //初始化

FrReport1.PrintPreparedReport('1',1,True,frAll); //打印

预览FrReport1.showreport;

------------------------------------

找开浏览器，进入某站点。（或调用WINDOWS程序）

进入站点ShellExecute(Handle, PChar('OPEN'),

PChar('http://www.devexpress.com/downloads/index.asp'), nil, nil,

SW_SHOWMAXIMIZED);

发送邮件ShellExecute(Handle, 'open', PChar('mailto:' + edtemail.Text + '?subject='),

nil, nil, SW_SHOW);

------------------------------------

打开文件对话框

if OpenPictureDialog.Execute then

------------------------------------

调用帮助文件

Application.HelpFile := '..\..\Help\eBars.hlp';

------------------------------------

打开窗口

TForm1.Create(self).ShowModal;

------------------------------------

取得当前执行程序的路径

FPath := ExtractFilePath(Application.ExeName);

或

FileName := ExtractFilePath(ParamStr(0)) + '\MDB\电子通讯录.mdb';

------------------------------------

当前路径

getcurrentdir

------------------------------------

判断当前鼠标处于某个位置（TAG）

case TComponent(Sender).Tag of

0: begin

...

lbBarBackgroud.Caption := sCustomImage;

end;

1: begin

...

lbBarBackgroud.Caption := sCustomImage;

end;

2: begin

...

lbBarBackgroud.Caption := sCustomImage;

end;

------------------------------------

数据库连接

1、建立一个adoconnection控件，命名为conn

2、建立一个adodataset控件,命名为ds

然后就可以用以下语句连接并执行SQL查询(本例是access的数据库，带密码)。

conn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data

Source='+getcurrentdir+'\data\pn.mdb;Persist Security Info=False;jet

oledb:database password=80513';

conn.Connected:=true;

ds.Active:=false;

ds.CommandText:='select 拜访日期,拜访时间,拜访客户,拜访地点,谈话内容 from khbf order by 拜访日期 desc';

ds.Active:=true;

------------------------------------

ADODataSet1.State的用法

if ADODataSet1.State in [dsEdit,dsInsert] then

ADODataSet1.Post

------------------------------------

ADOQuery.open和ADOQuery.execSQL的区别

用于存贮时如insert 只能用execSQL

------------------------------------

------------------------------------

------------------------------------

------------------------------------

回车光标移到另一个输入框

if key=#13 then

cmb_name.SetFocus;

------------------------------------

播放声音

playsound('c:\windows\media\start.wav',0,SND_ASYNC);

------------------------------------

列表框listbox增加项目

cmb_name.Items.Add(adotable1.FieldValues['帐号']);

------------------------------------

listview用法

ListView.Selected := ListView.Items[0];

ListView.Selected.Focused := True;

ListView.Selected.MakeVisible(False);

ListView.Selected.Index

ListView.Items.Count

ListView.Items.Delete(3) //删除第3个项目

ListView.Items.Add.Caption:='dddddddd'; //增加一个项目

ListView.Items.BeginUpdate;

ListView.Items.EndUpdate

ListView.Canvas.Font.Color := clGrayText;

if ListView.Selected <> nil then。。。。。

//往listview添加项目

先定义

var itm: TListItem;

然后

listview.Items.Clear;

itm := listview.Items.Add;

itm.ImageIndex := 5;

itm.Caption := Msg.Subject;

itm.SubItems.Add('aaaaa');

itm.SubItems.Add('ffffff');

itm.SubItems.Add('ffdfdfdf');

itm.SubItems.Add('oooo');

------------------------------------

静态调用DLL的方法

有参数

procedure CreateSms(Text: Pchar);stdcall;External 'SmsLib.dll';

无参数

procedure CreateSms;stdcall;External 'SmsLib.dll';

------------------------------------

确定、取消对话框作用

if application.MessageBox('真的退出?','提示',mb_okcancel)=idok then

application.Terminate; //Terminate是终止程序

showmessage('请先选中要修改的班级'); //这个是简单的显示提示框

messagebox(self.Handle ,'价格输入不合法!','提示',MB_OK or MB_ICONASTERISK);

------------------------------------

调用窗体的步骤

先引用该窗体的单元，然后建立窗体，最后显示出来。

例1：

use uxsgl;

Application.CreateForm(TFmXsgl, FmXsgl);

fmxsgl.ShowModal;

例2：

Frm_LendDetail:=TFrm_LendDetail.Create(self);

Try

Frm_LendDetail.ShowModal;

Finally

Frm_LendDetail.Free;

End;

------------------------------------

数据库查询

先建立数据源，然后添加一个TADOQUERY

adoquery1.SQL.Clear

adoquery1.Close;

adoquery1.SQL.Add('select * from tkcb order by ckcb_kh');

adoquery1.Open;

aaa=adoquery1.FieldValues['ckcb_kc']; //取出当前记录某字段的值

adoquery1.Next; //下一记录

adoquery1.Close; //关闭查询

------------------------------------

判断键盘输入字符-chr(13)是回车

if key=chr(13) then

bitbtn1.SetFocus;

------------------------------------

时间格式

lblTime.Caption := FormatDateTime('yyyymmdd hh:nn:ss',Now);

------------------------------------

表数据的添加添加

dmd是数据模块 tbl_zgdb是表名

with dmd.tbl_zgdb do begin

Append;

FieldValues['HYZH'] := Edt_HYZH.text;

FieldValues['XM'] := Edt_xm.text;

FieldValues['XB'] := Edt_xb.text;

FieldValues['dw'] := Edt_dw.text;

FieldValues['ZZMM'] := zzmm;

FieldValues['CSNY'] := trim(Edt_csny.text);

FieldValues['GZSJ'] := Edt_gzsj.text;

FieldValues['DBLB'] := dblb;

FieldValues['ZCLB'] := zclb;

FieldValues['XL'] := xl;

FieldValues['BZ'] := Edt_bz.text;

Post;

close;

end;

------------------------------------

列表框的选项值

Edit1.Text:=listbox1.Items.Strings[listbox1.itemindex];

------------------------------------

Delphi键盘按键伪码

用法：if key = chr(VK_RETURN) then...

常数名称 十六进制值 十进制值 对应按键

VK_LBUTTON 01 1 鼠标的左键

VK_RBUTTON 02 2 鼠标的右键

VK-CANCEL 03 3 Contol-break 执行

VK_MBUTTON 04 4 鼠标的中键（三按键鼠标)

VK_BACK 08 8 Backspace键

VK_TAB 09 9 Tab键

VK_CLEAR 0C 12 Clear键

VK_RETURN 0D 13 Enter键

VK_SHIFT 10 16 Shift键

VK_CONTROL 11 17 Ctrl键

VK_MENU 12 18 Alt键

VK_PAUSE 13 19 Pause键

VK_CAPITAL 14 20 Caps Lock键

VK_ESCAPE 1B 27 Ese键

VK_SPACE 20 32 Spacebar键

VK_PRIOR 21 33 Page Up键

VK_NEXT 22 34 Page Domw键

VK_END 23 35 End键

VK_HOME 24 36 Home键

VK_LEFT 25 37 LEFT ARROW 键(←)

VK_UP 26 38 UP ARROW键(↑)

VK_RIGHT 27 39 RIGHT ARROW键(→)

VK_DOWN 28 40 DOWN ARROW键(↓)

VK_Select 29 41 Select键

VK_EXECUTE 2B 43 EXECUTE键

VK_SNAPSHOT 2C 44 Print Screen键

VK_Insert 2D 45 Ins键

VK_Delete 2E 46 Del键

VK_HELP 2F 47 Help键

VK_0 30 48 0键

VK_1 31 49 1键

VK_2 32 50 2键

VK_3 33 51 3键

VK_4 34 52 4键

VK_5 35 53 5键

VK_6 36 54 6键

VK_7 37 55 7键

VK_8 38 56 8键

VK_9 39 57 9键

VK_A 41 65 A键

VK_B 42 66 B键

VK_C 43 67 C键

VK_D 44 68 D键

VK_E 45 69 E键

VK_F 46 70 F键

VK_G 47 71 G键

VK_H 48 72 H键

VK_I 49 73 I键

VK_J 4A 74 J键

VK_K 4B 75 K键

VK_L 4C 76 L键

VK_M 4D 77 M键

VK_N 4E 78 N键

VK_O 4F 79 O键

VK_P 50 80 P键

VK_Q 51 81 Q键

VK_R 52 82 R键

VK_S 53 83 S键

VK_T 54 84 T键

VK_U 55 85 U键

VK_V 56 86 V键

VK_W 57 87 W键

VK_X 58 88 X键

VK_Y 59 89 Y键

VK_BZ 5A 90 Z键

VK_NUMPAD0 60 96 数字键0键

VK_NUMPAD1 61 97 数字键1键

VK_NUMPAD2 62 98 数字键2键

VK_NUMPAD3 63 99 数字键3键

VK_NUMPAD4 64 100 数字键4键

VK_NUMPAD5 65 101 数字键5键

VK_NUMPAD6 66 102 数字键6键

VK_NUMPAD7 67 103 数字键7键

VK_NUMPAD8 68 104 数字键8键

VK_NUMPAD9 69 105 数字键9键

VK_MULTIPLY 6A 106 *键

VK_ADD 6B 107 +键

VK_SEPARATOR 6C 108 Separator键

VK_SUBTRACT 6D 109 -键

VK_DECIMAL 6E 110 .键

VK_DIVIDE 6F 111 键

VK_F1 70 112 F1键

VK_F2 71 113 F2键

VK_F3 72 114 F3键

VK_F4 73 115 F4键

VK_F5 74 116 F5键

VK_F6 75 117 F6键

VK_F7 76 118 F7键

VK_F8 77 119 F8键

VK_F9 78 120 F9键

VK_F10 79 121 F10键

VK_F11 7A 122 F11键

VK_F12 7B 123 F12键

VK_NUMLOCK 90 144 Num Lock 键

VK_SCROLL 91 145 Scroll Lock键

==================

Delphi中怎么将实数取整？

　　floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。

　　trunc 和 round 是 system unit 里的函数，缺省就可以用。

　　　floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123

　　　trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123

　　　ceil 直接往大的取，比如 ceil(-123.55)=-123， ceil(123.55)=124

　　　round 计算四舍五入，比如 round(-123.55)=-124，round(123.55)=124

==================================================

如何把RGB颜色转变成Delphi的 Tcolor?

form1.color:=rgbtocolor(255,0,0);

函数:

---------

function RGBToColor(R,G,B:Byte): TColor;

begin

Result:=B Shl 16 or

G Shl 8 or

R;

end;

===========================

////////////////////////////////////////////////////////////////////////////////

回调函数(Callback Routine)的解释

MyWindowClassInfo = packed record

Style:UINT

...

lpFnWndProc:Pointer

...

end;

应用程序只需要将一个能处理消息的函数地址指定给MyWindowClassInfo中的lpFnWndProc字段，执行环境就知道消息需要调用的函数，于是应用程序可以把任何的函数地址指定给该字段以代表可以处理窗口消息的函数，这个函数是由执行环境来调用的，因此这种函数也被称为回调函数(Callback

Routine)。

回调函数的机制：调用者在初始化一个对象的时候，将一些参数传递给对象，同时将一个调用者可以访问的函数地址传递给该对象，这个函数就是调用者和被调用者之间的一种通知约定，当约定的事件发生时，被调用者就会按照回调函数地址调用该函数。

/////////////////////////////////////////////////////////////////////////////////////////

Object Inspector(对象检视器)

Properties页显示窗体中当前被选择部件的属性信息

Events页列出了当前部件可以响应的事件

（小窍门：Object Inspector一直可见，可将鼠标移到Object Inspector上，按动右键，以启动Object

Inspector的弹出式菜单，将其设置为Stay On Top。）

部件的调整与对齐

如果要精确地表述部件的尺寸，可以在Object

Inspector上，改变Left(表示部件左边缘到窗体左边框的象素点数)、Top(表示窗体上边框到部件上边缘的象素点数)、

Width(部件本身的宽度)、Height(部件本身的高度)等属性。

使四个按钮对齐。先将四个按钮选为一组：按住并向右下方拖动鼠标左键，在窗体上画出围绕四个按钮的矩形，释放左键后，被选中的按钮周边会出现暗灰色的边框。选用Edit|Align命令，

或选中4个按钮，出现灰色边框后，点右键，选择position,后面align…等，是不同方式的对齐，可以调整同样大小的尺寸。

锁定部件

选择主菜单上的Edit|Lock Controls选项

设置窗体的缺省按钮

按钮的Default属性从False改成True，即将它设为窗体的缺省按钮

OnClick事件，即按钮接收到左键单击时应用程序所作出的反应

ColorDialog1.Execute;

程序的第一句用Execute方法，使得ColorDialog运行它本身

Label(标签)一般放在对象的旁边，用来标记这些对象，当用户使用“Alt+关键字母”时，将自动选中它所指向的对象。方法是设置Label部件的FocusControl属性，在值段中，选用与它关联对象的对象名。　

Edit、MaskEdit、Memo部件都是用作接收、显示用户输入文本的。ReadOnly在运行时间内控制对象是否可以进行Windows的操作，当此值为False时，该框内的文本就不能被复制到剪贴板上。MaxLength可以设置输入文本的长度限制。用PasswordChar属性可以按照显示隐蔽密码的方法显示用户输入文本。当一个字段被加上高亮度显示时，按键操作会将这一字段删除，替换成当前的键盘输入。这种设置为操作提供了方便，您不必每次先删除原来的文本；但也可能会导致误删文本。将AutoSelect属性设置成False，这种替代功能就被取消了。

它的EditMask属性为它提供了过滤文本的格式。点动这一属性的省略按钮，会弹出过滤编辑对话框

Memo是备注框，与以上对象不同的是，它可以接收多行文本输入。将ScrollBars设置成ssVertical，可以为它加上一个垂直的滚行条。Align属性调整该对象在窗口中的对齐情况，有alNone(无对齐指定)、alBottom(底部对齐)、alClient(全窗口显示)等可以选择；而Alignment属性则决定了文本在框中的对齐显示格式。Lines属性访问的文本被存储在一个TStrings对象中，按动它的省略按钮，可以通过对话框向它增加文本，也可以用程序对这一属性进行操作，以达到修改或增加备注文本的目的。

Combo Box(组合框) 显示可用磁盘驱动器

List Box(列表框) Windows打开文件操作时显示文件列表