在窗體創建初期將鼠標指針移動到相應位置 (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;