unitUnit11;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtr...

unitUnit10;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtr...

unitUnit9;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrl...

unitUnit2;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.ComCtrl...

  unitUnit2;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs...

//h:窗体中控件的句柄（用在某个控件上提示消息）（要调用的控件句柄）//text:要提示的文本//cap:提示框上的标题//IconType:提示框上显示的图标（共三个值。1、2、3分别为提示、警告、错误s）//t:消息停留的时间(以毫秒计算)//left:消息框偏离控件的左距离，设为0则表示没有//top:消息框偏...

procedureMSGEnter(varmsg:TMessage);messageCM_MOUSEENTER;//响应进入的消息procedureMSGLeave(varmsg:TMessage);messageCM_MOUSELEAVE;//响应离开的消息procedureButton1Click(Sender:T...

Delphi获取当前鼠标下的控件内容主要函数：GetCursorPos；//获取鼠标的位置WindowFromPoint；//获取制定point下的handleGetClassName；//获取类的名字 functionTForm1.GetEditText:string;var Point:TPoi...

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Menus,StdCtrls;typeTForm1=class(TForm)Button1:TButton;PopupMen...

//poScreenCenter时，窗体会显示到主显示器的中央MainForm.Position:=poScreenCenter; functionTGAEAMainForm.GetWorkArea(varR:TRect):Boolean;varI:Integer;beginResult:=False;for...

objectForm1:TForm1Left=0Top=0Caption='Form1'ClientHeight=772ClientWidth=635Color=clBtnFaceFont.Charset=DEFAULT_CHARSETFont.Color=clWindowTextFont.Height=-11Font...