Showmodal是个函数,Show是个过程1.Showmodal:概念:当你调用一个窗口用SHOWMODAL时,当这个窗口显示出来后,程…
1.隐藏窗体的标题栏在Delphi中隐藏窗体的标题栏,相信大家都会说是一个件十分容易的事情,只需要设置Border…
procedureTForm1.FormCreate(Sender:TObject);varerrno:integer;hmutex:hwnd;beginhmutex:=createmutex(nil…
改进前://------------------------------------Application.Initialize;<spanstyle="font-family:Helveti…
procedureTMain****.****Create(Sender:T****);varMyReg:****egis****y;InsDate,LastUseDate,****yDate:***…
procedureT****2.Button1Click(Sender:T****);varH:THandle;lngReturnValue:longint;DWResult:DWORD;beginH…
unitUnit2;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…
procedureTForm1.FormCreate(Sender:TObject);beginKeyPreview:=true;end;procedureTForm1.FormKeyPress(Se…
一句话概括:可以同时选中多个样式,然后设置控件的StyleName属性来使用某个样式。例如:objectForm2:TForm…
如何禁止用户更改窗体的大小设置窗体的BorderIcons.biMinimize=false和BorderIcons.biMaximize=false。窗体…
usesFoxmailMsgFrm;//调用procedureTForm1.Button1Click(Sender:TObject);beginShowInfo('信息');end;proce…
unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…
在implementation加入下面usesGauges;varGauge1:TGauge;加入Timer1控件,设为falseprocedureTForm1.Button1…
unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…
1、定义一个全局变量保存显示到标题栏的字符串,strScroll:Widestring='风行天下-ByWindSon';2、添加一个Ti…
typeTForm2=class(TForm)private{Privatedeclarations}public{Publicdeclarations}procedureCreateParams(v…
1.MouseMove事件中加入://ReleaseCapture;//Perform(WM_SYSCOMMAND,$F017,0);2.MouseDown事件中加入://PO…
procedureTForm2.FormCreate(Sender:TObject);beginperform(WM_SIZE,SIZE_MAXIMIZED,0);end;
programProject1;usesVcl.Forms,Unit1in'Unit1.pas'{Form1},Unit2in'Unit2.pas'{Form2};{$R*.res}varForm2:…
procedureTForm1.FormCreate(Sender:TObject);beginform1.Left:=(screen.Width-form1.Width)div2;form1.Top…