发信人: soaringbird()
整理人: teleme(2001-05-08 12:34:38), 站内信件
|
【 在 stingzy 的大作中提到:】
:
:......
procedure TForm1.Button3Click(Sender: TObject);
var
p,p1: TPoint;
begin
p.x := Button1.Left;
p.y := Button1.Top;
p1 := ClientToScreen(p);
SetCursorPos(p1.x+10,p1.y+10);
end; |
|