如何讓浮動窗口跟著光標的位置跑。

[postfxj]

如何讓浮動窗口跟著光標的位置跑。

[postfxj]

看到的幫我頂一下下。

[dBASEIII]

哦

[love小在在]

可以编写自己的浮动控件,追随鼠标的位置变化.
getcursorpos得到鼠标坐标.
调整浮动窗口的left,top.

[postfxj]

如何得到鼠標的坐標。

[dBASEIII]

|||||||
| |
{~Ｏ^Ｏ~}
| Ｏ |

[postfxj]

沒有會的嗎

[dBASEIII]

很简单，鼠标左键点住窗口的标题，然后拖着它满世界跑....

哈哈，帮顶

如何得到鼠標的坐標。------四楼告诉你了

[postfxj]

如何取到某個組件的坐標。

[postfxj]

沒人會嗎？

[cndker]

试一下,,
var
Opos, Cpos: Tpoint;
Flag: boolean = false;
处理OnMouseDown事件代码：
Flag := true;
Opos.X := X;
Opos.Y := Y;
处理OnMouseMove事件代码：
if Flag then
begin
Cpos.X := X;
Cpos.y := Y;
Left := Left + Cpos.X - Opos.X;
Top := Top + Cpos.Y - Opos.Y;
end;
处理OnMouseMove事件代码：
Flag := false;