代码如下： var FM2 : TbrzlhxForm; P : TPoint; begin FM2 := TbrzlhxForm.Create(Self); FM2.Parent := NIL; FM2.BorderStyle := bsNone; P.X := Edit1.Left; P.Y := Edit1.Top Edit1.Height; FM2.Left := Self.ClientToScreen(P).X;; FM2.Top := Self.ClientToScreen(P).Y; 这是部份代码，是可以正常运行的，跳出窗口的左边正好在EDIT的左边界，按照道理跳出窗口的顶部应和EDIT的下框线平行，不懂怎么跳出窗口不平行，而是在上面很多了，这是别人给我的代码，在他的例子中是可以的，我是拷过来的，不懂就不行了。请问高手，通常情况下有哪些因素影响这个跳出窗口的顶部出现的位置

------
我的编程起步于ktop，我将永远支持ktop

你好 因為還要加上Edit1所在的form的位置, P.X := Left Edit1.Left; P.Y := Top Edit1.Top Edit1.Height Edit1.Height; 這樣子試試看!! Pillar Wang

------
Pillar Wang

我试了一下，加不加都一样的，因为在原来别人给我的例子中，就是这个代码，就是这样写的，能够出现在正确的位置上的。我把代码搬到我的窗口中来就不行了，不懂会不会和我窗口上放有TOOLBAR有关系的？因为现在是左边界对的，只是顶部不对

------
我的编程起步于ktop，我将永远支持ktop

會不會是 Self 不對？還是你的 TbrzlhxForm 有去動到 Form 的位置？ 我手上沒有 TbrzlhxForm 所以，我直接用 TForm 代替 我還特地加上了 Menu & Toolbar，還是可以出現在應該出現的地方 所以我猜可能是那二個因素吧....    不然你把你的代碼改成這樣:

FM2 := TbrzlhxForm.Create(Self);
FM2.Parent := NIL;
FM2.BorderStyle := bsNone;
P.X := 0;
P.Y := Edit1.Height;    FM2.Left := Edit1.ClientToScreen(P).X;
FM2.Top  := Edit1.ClientToScreen(P).Y;

意義是相同的，相對座標改成 Edit1 本體 沒用到 Self，這樣表達應該比較明確 發表人 - reptile 於 2005/05/20 09:48:58

ntjrr 你好: 應該是edit的Parent不對

------
======================
昏睡~
不昏睡~
不由昏睡~