如何可知道当前控件在屏幕中的位置（Left,Top),而不是在其Parent中的位置？

[Snakeguo]

[Snakeguo]

zswang(伴水)(伤心中):
GetWindowPos()?好像没有这个函数

[iBear]

这些控件一般都有clienttoscreen和screentoclient两个方法进行相关的操作。

[kevin_gao]

ClientToScreen(p);

[王集鹄]

GetWindowRect()

[王集鹄]

var
vRect: TRect;
begin
GetWindowRect(Button1.Handle, vRect);
(*
vRect.Left
vRect.Top
*)
end;

[王集鹄]

我的方法不是最好的
如果是SpeedButton、Image这种非Win控件就不行
因为没有Handle了

[thedream]

button1.left:=form1.left+button1.left;
button1.top:=form1.left+button1.top;

[thedream]

噢错了，第二句应该是button1.top:=form1.top+button1.top;

[tikkypeng]

p, CP:TPoint ;
begin
dc := GetWindowDC(0);
p.x:= button1.Left;
p.y:= button1.Top;
CP:= ClientToScreen(p);

[taxi]

procedure TForm1.Button1Click(Sender: TObject);
var
p: Tpoint;
begin
P := Button1.Parent.ClientToScreen(Point(Button1.Left, Button1.Top));
ShowMessage(IntToStr(p.X) + '..' + IntToStr(p.Y));
end;

[王集鹄]

GetWindowPos()

[Snakeguo]

谢谢大家的热心帮助,特别感谢zswang(伴水)(伤心中)的热心,结贴了.

[王集鹄]

嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻