如何得到不是相对于容器的坐标，而是相对于窗体的坐标(100分)

first · 2004-03-09

比如我在panel中放一个button,那么button的top和left是相对于panel的。 在不通过父容器坐标的情况下，如何根据button自身得到相对于窗体的top和left

easykey · 2004-03-09

这个还真不清楚，看下哪位能给个答案吧

gear1023 · 2004-03-09

我的做法是: 查看控件的Parent,依次加上相应的LEFT/TOP,直到PARENT是窗体,最后得到就是相对于窗体的LEFT/TOP

easykey · 2004-03-09

楼主说不通过父容器，有难度啊，不知道能不能实现。

放飞 · 2004-03-09

继承自 TControl 的控件都有一个 ClientToScreen 方法，这个方法就可以将相对于控件自身的坐标转换成屏幕坐标。 例如，你要想知道 Button 的 Left, Top 相对于屏幕的坐标是多少，那么你可以这么写 var   a, b: TPoint; begin   //这里一定要是0，因为Button 的 Left 是相对于容器的坐标，   //而 Button 的 Left 相对于 Button 自身应该是0   a.X := 0; //Button.Left相对于Button的坐标是0   a.Y := 0;//Button.Top相对于Button的坐标是0   b := Botton.ClientToScreen(a);   //b.X 就是 Button 的 Left 相对于屏幕的坐标   //b.Y 就是 Button 的 Top 相对于屏幕的坐标 end;

gear1023 · 2004-03-09

PANEL有个HANDLE,找一下有没有相应的API可以取得.

Highpeak · 2004-03-09

procedure TForm1.btn1Click(Sender: TObject); var   rect:Trect; begin   GetWindowRect(btn1.Handle,Rect);   mmo1.Lines.Add('=====相对与panel====');   mmo1.Lines.Add('left: '+inttostr(btn1.Left));   mmo1.Lines.Add('top: '+inttostr(btn1.top));   mmo1.Lines.Add('====相对于窗体=====');   mmo1.Lines.Add('left:'+inttostr(Rect.left-left));   mmo1.Lines.Add('top: '+inttostr(Rect.top - top)); end;

easykey · 2004-03-09

我知道怎么作了，如下可以取得控件相对于窗体的坐标 procedure TForm1.FormShow(Sender: TObject); var   p1,p2,p: TPoint; begin   p.X := 0;   p.Y := 0;   p1 := Form1.ClientToScreen(p);   p2 := Button1.ClientToScreen(p);   ShowMessage('button1.Top = '+IntToStr(p2.Y - p1.Y));   ShowMessage('button1.Left = '+IntToStr(p2.x - p1.x)); end;

yostgxf · 2004-03-09

放飞答的这么清楚了,可以结帖了

kouchun · 2004-03-09

很簡單的... button.top := panel.top + top; button.left := panel.left + left;

yostgxf · 2004-03-09

to  kouchun 你还没看明白呢, 再加个容器试一试

放飞 · 2004-03-09

刚才没看清题目，first 要的是相对于窗体的坐标，而我刚刚给的是相对于屏幕的坐标。 现在重新实现如下： procedure TForm1.Button1Click(Sender: TObject) var   a, b: TPoint; begin   //这里一定要是0，因为Button 的 Left 是相对于容器的坐标，   //而 Button 的 Left 相对于 Button 自身应该是0   a.X := 0; //Button.Left 相对于 Button 的坐标是 0   a.Y := 0;//Button.Top 相对于 Button 的坐标是 0   b := Botton.ClientToScreen(a);   //b.X 就是 Button 的 Left 相对于屏幕的坐标   //b.Y 就是 Button 的 Top 相对于屏幕的坐标   //如果你还想得到 Button 相对于窗体的坐标，那再进行如下转换   a := self.ScreenToClient(b);   //a.X 就是 Button 相对于窗体的 Left   //a.Y 就是 Button 相对于窗体的 Top   //程序写到这里，其实你可以计算出这个 Button 的 Left 和 Top 相对任何一个窗体上的可视控件的相对坐标，只要调用那个可视控件的ScreenToClient(b)就可以了 end;

first · 2004-03-09

谢谢各位，Highpeak的简单用。

first · 2004-03-09

谢谢大家，Highpeak的很好用

放飞 · 2004-03-09

我就不信，你把Button放在两个嵌套的Panel上再试试 Highpeak 的方法,看看能不能返回正确的结果？嵌套三层四层试试？ 要简单是吧: var   a, b: TPoint; begin   a.X := 0;  a.Y := 0;   b := Button.ClientToScreen(a);//相对于屏幕的: b.X 是 Left; b.Y 是 Top   a := self.ScreenToClient(b);//相对于窗体的: a.X 是 Left; a.Y 是 Top   a := Panel_1.ScreenToClient(b); //相对于第一层 Penel 的: a.X 是 Left; a.Y 是 Top   //......   a := Panel_n.ScreenToClient(b);//相对于第n层 Penel 的: a.X 是 Left; a.Y 是 Top end; 够简单吗？ 多用用面向对象的方法好吗？大哥！

如何得到不是相对于容器的坐标，而是相对于窗体的坐标(100分)

first

Unregistered / Unconfirmed

easykey

Unregistered / Unconfirmed

gear1023

Unregistered / Unconfirmed

easykey

Unregistered / Unconfirmed

放飞

Unregistered / Unconfirmed

gear1023

Unregistered / Unconfirmed

Highpeak

Unregistered / Unconfirmed

easykey

Unregistered / Unconfirmed

yostgxf

Unregistered / Unconfirmed

kouchun

Unregistered / Unconfirmed

yostgxf

Unregistered / Unconfirmed

放飞

Unregistered / Unconfirmed

first

Unregistered / Unconfirmed

first

Unregistered / Unconfirmed

放飞

Unregistered / Unconfirmed

Similar threads