B
blackmil
Unregistered / Unconfirmed
GUEST, unregistred user!
是否可调用mousecoord函数？它的返回值应该是什么，如何使用？
如果我是要通过获得鼠标的位置来画线的话，如何实现？
谢谢大家了！
如果我是要通过获得鼠标的位置来画线的话，如何实现？
谢谢大家了！
H
helloqiner
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
//这里的X,Y值就是 鼠标的位置
end;
Y: Integer);
begin
//这里的X,Y值就是 鼠标的位置
end;
F
foxphone2003
Unregistered / Unconfirmed
GUEST, unregistred user!
同意楼上的
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
form1.caption:=inttostr(x )+inttostr
;
//就能清楚的看到你的鼠标当前位置
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
form1.caption:=inttostr(x )+inttostr
;//就能清楚的看到你的鼠标当前位置
end;
L
lichengbin
Unregistered / Unconfirmed
GUEST, unregistred user!
in OnMouseMove event.
or: GetCursorPos(P);
P := Form1.ScreenToClient(P);//P: (X,Y)
or: GetCursorPos(P);
P := Form1.ScreenToClient(P);//P: (X,Y)
B
blackmil
Unregistered / Unconfirmed
GUEST, unregistred user!
如何在onclick事件中调用获得的坐标，从而确定线段的起点？
B
blackmil
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.