如何确定窗口的位置

lcy98162 2004-10-11 08:35:19

我重新定义了一个VCL控件，在控件中调用一个窗口。如何才能让窗口显示在控件的正下方。请高手请点。谢谢！

...全文

203 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

loveghb 2004-11-01

打赏
举报

form2显示在edit1的下面了。呵呵。不过代码的地方你要换一换，比方说你的edit1移动了，那么form2也跟着移动，剩下的你自己搞定吧。

loveghb 2004-11-01

打赏
举报

给你一段代码吧：
procedure TForm1.FormShow(Sender: TObject);
var
temp: TRect;
po: TPoint;
begin
Form2.Show;
GetWindowRect(Edit1.Handle,temp);
po.X := temp.left;
po.Y := temp.Bottom;
ClientToScreen(po);
MoveWindow(Form2.Handle, po.X, po.Y, Form2.Height, Form2.Width ,True);
end;

这样就可以了。

lcy98162 2004-10-31

打赏
举报

lcy98162 2004-10-22

打赏
举报

lcy98162 2004-10-21

打赏
举报

转换成屏幕坐标
var
vMMove:TRect;
begin
vMMove := self.BoundsRect;
MapWindowPoints(handle,0,vMMove,2); //将坐标转换为屏幕坐标
form.Left:=vMmove.Left;
from.Top:=vMMove.Bottom;
....
为什么用上面的方法在窗中能行在控件中又不行呢！
要是在控件中实现又该如何请指点谢谢了

jaspcloud 2004-10-20

打赏
举报

SetWindowPos(hWin, 0, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOZORDER);
↑ ↑
位置坐标!!

todouwang 2004-10-19

打赏
举报

1.用消息找form
2.返回位置

lcy98162 2004-10-19

打赏
举报

lcy98162 2004-10-18

打赏
举报

TO: older(疲倦的程序员)
请问在控件中调用如何写

SmallMaker 2004-10-12

打赏
举报

设定窗口的left和top属性进行定位

older 2004-10-12

打赏
举报

转换成屏幕坐标
var
vMMove:TRect;
begin
vMMove := self.BoundsRect;
MapWindowPoints(handle,0,vMMove,2); //将坐标转换为屏幕坐标
form.Left:=vMmove.Left;
from.Top:=vMMove.Bottom;
....

ghchen 2004-10-12

打赏
举报

不懂,顶

powerdel 2004-10-12

打赏
举报

感觉上不大可能，学习ing

lcy98162 2004-10-12

打赏
举报

我是用你所说的方法做但是不行，因为Self.Left是控件在窗口中的位置，form.Left是窗口在桌面上的位置，所以显示的位置也不对。

wycg_cnh20 2004-10-12

打赏
举报

//在你的控件类中加一个方法
Procedure TEdit.ShowForm;
begin
//...................创建Form
　form.Left:=Self.Left;
from.Top:=Self.Top+Self.Height+2;
//...........................
end;

lcy98162 2004-10-12