在窗体创建初期将鼠标指针移动到相应位置.txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 21 行

在窗体创建初期将鼠标指针移动到相应位置 (2001年5月4日) 

网友更新  分类:系统   作者:qiubole  推荐:qiubole   阅读次数:243  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var
h:tpoint;
x,y:integer;
begin
y:=edit1.Top+edit1.height div 2;
x:=edit1.Left+edit1.width div 2;

getcursorpos(h);
h:=screentoclient(h);
mouse_event(MOUSEEVENTF_MOVE,(x-h.x) div 2,(y-h.y) div 2,0,0);
end;