如何获取窗体的位置 程序需要动态的获取Form想对于屏幕的Left、Top等位置利用Form.Left得不到,该怎么获取呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 刚才试了一下,在程序的主窗体中可以获取Form的Left属性。而通过ShowModal调用的窗体则无法动态的获得其Left属性,即使挪动窗体,读出来的Left值仍然没有变化,不知道为什么?可不可以通过API函数获取窗体的Left、TOP值,怎么获取? var rect: TRect;begin GetWindowRect(Form1.Handle, rect); ShowMessage(IntToStr(rect.Left) + ',' + IntToStr(rect.Top));end; 谢谢sysu。不过这个方法和直接读取Form.Left属性的结果是一样的,对于用ShowModal调用的窗体,不好用,不知道为什么? 不知你怎么获取的我ShowModal的窗体Left,Top当移动时都变化了 是不是我ShowModal的问题?我是这么做的:Form1中添加一个Button,其响应如下:procedure TForm1.Button1Click(Sender: TObject);var Form2 : TForm2;begin Form2 := TForm2.Create(Application); Form2.ShowModal;end;这样弹出Form2,结果在Form2中就只能得到最初的设定时的Left和Top,即使移动了Form2,也获取不到改变后的值。然而在Form1中却可以获得Form2移动后的Left和Top。真是郁闷。 请教:我这样的情况需要怎样处理?(SOCKET 怎么使服务器和客户端建立连接)谢谢! 在杭州的朋友有没有碰到过这个人 关于多系列柱状图的问题! DELPHI过滤数据的问题,请帮忙 问问有关修改记录的问题? 你们遇到过数据查询不出来的情况吗 怎样才能防止一个onkeydown事件被多次触发 安装组件编译出现File not found:'dsgnintf.dcu' 怎样解决 怎样比较两个对象是否相等? 好高兴,终于长角了,散分!!! 中国的ISP服务真差,尤其是Lycos,光收钱不做事!!!搞WebSnap开发的人一定要来看看,引以为戒。可怜,我花了一个月开发的Web 应用程序 文件操作
而通过ShowModal调用的窗体则无法动态的获得其Left属性,即使挪动窗体,读出来的Left值仍然没有变化,不知道为什么?可不可以通过API函数获取窗体的Left、TOP值,怎么获取?
rect: TRect;
begin
GetWindowRect(Form1.Handle, rect);
ShowMessage(IntToStr(rect.Left) + ',' + IntToStr(rect.Top));
end;
不过这个方法和直接读取Form.Left属性的结果是一样的,对于用ShowModal调用的窗体,不好用,不知道为什么?
我ShowModal的窗体Left,Top当移动时都变化了
我是这么做的:Form1中添加一个Button,其响应如下:procedure TForm1.Button1Click(Sender: TObject);
var Form2 : TForm2;
begin
Form2 := TForm2.Create(Application);
Form2.ShowModal;
end;这样弹出Form2,结果在Form2中就只能得到最初的设定时的Left和Top,即使移动了Form2,也获取不到改变后的值。
然而在Form1中却可以获得Form2移动后的Left和Top。真是郁闷。