Delphi Base

摘要： 1.MouseMove事件中加入： // ReleaseCapture; // Perform(WM_SYSCOMMAND, $F017 , 0); 2.MouseDown事件中加入： // POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0); // POSTMESS 阅读全文

摘要： type TForm2 = class(TForm) private { Private declarations } public { Public declarations } procedure CreateParams(var Params:TCreateParams); override; 阅读全文

摘要： 1、定义一个全局变量保存显示到标题栏的字符串，strScroll: Widestring = '风行天下 - By WindSon '; 2、添加一个Timer控件，设置属性Interval := 300; Enabled:=True; 3、然后添加Timer事件 procedure TForm1. 阅读全文

摘要： // 循环往上滚动 if Memo1.Perform(EM_SCROLL,SB_LINEDOWN,0)=0 then begin Memo1.Perform(WM_VSCROLL,SB_TOP,0); end else begin SendMessage(Memo1.Handle,WM_VSCROL 阅读全文

摘要： 1. 定义线程类 type TMyThread = class(TThread) private { Private declarations } fPos:Integer; // 变量 protected procedure GetMailList; procedure UpdatepBar; / 阅读全文

摘要： for i := CheckListBox1.Items.Count-1 downto 0 do //从后面往前面删 begin if CheckListBox1.Checked[i] then // 是否选中 begin CheckListBox1.Items.Delete(i); end; en 阅读全文

摘要： if not (key in ['0'..'9',#8]) then key := #0; 阅读全文

摘要： function IsHZ(ch: WideChar): boolean; var i: Integer; begin i := Ord(ch); if (i < 19968) or (i > 40869) then result := False else result := True; end; 阅读全文

摘要： uses Winapi.Windows; function IsWin64: Boolean; var IsWow64Process: function(Handle: THandle; var Res: BOOL): BOOL; stdcall; GetNativeSystemInfo: proc 阅读全文

摘要： procedure RoundControl(Control: TWinControl; arc1, arc2: Integer); var R: TRect; Rgn: HRGN; begin with Control do begin R := Control.ClientRect; Rgn : 阅读全文