如何把鼠标定位窗体的某一个位置呢???(20分)

M

mypool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-12

• #1

如何把鼠标定位窗体的某一个位置呢??

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-12

• #2

procedure TForm1.Button3Click(Sender: TObject);
var
tmpPoint: TPoint;
begin
tmpPoint.X := 10;
tmpPoint.Y := 20; //窗体中的位置
Mouse.CursorPos := Form1.ClientToScreen(tmpPoint); //定位鼠标位置
end;

 

X

xiammy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-12

• #3

procedure TForm1.Button1Click(Sender: TObject);
begin
Mouse.CursorPos := Point(Self.Left, Self.Top)
end;

 

M

mypool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-29

• #4

多人接受答案了。