Delphi Base

摘要： function GetInputAwayTime():DWORD; var lpi:TLastInputInfo; begin lpi.cbSize := sizeof(lpi); GetLastInputInfo(lpi); Result := Round((GetTickCount()-lpi 阅读全文

摘要： API函数 AnimateWindow 使用： 函数功能：窗体显示和隐藏时产生特殊的动画效果；可以产生两种类型的动画效果： 滚动动画 和 滑动动画 函数原型：BOOL AnimateWindow(HWND hWnd, DWORD dwTime, DWORD dwFlags) 参数说明：hWnd 指定 阅读全文

摘要： procedure TForm2.FormCreate(Sender: TObject); begin perform(WM_SIZE,SIZE_MAXIMIZED,0); end; 阅读全文

摘要： 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; 阅读全文