窗体弹出后边缘如何自动衔接 在窗体FORM_1中点击一按钮,SHOW出另一个窗体FORM_2,然后让FORM_2的窗体右边缘靠紧FROM_1的左边缘,自动衔接上,如何实现呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 createform2;form2.Left := Form1.Left - Form2.Width;form2.top := form1.Top;Form2.show; 如果你想form1移动的时候.form2也跟着移动,可以发消息实现.form1移动的时候,就给form2发消息,form2的消息响应里面去控制自己的位置. procedure TForm1.Button1Click(Sender: TObject);begin Form2.Left:=Form1.Left; Form2.Show;end;{加上下面这个,Form2就只能呆在Form1的左边缘跑不掉了}procedure TForm1.FormPaint(Sender: TObject);begin Form2.Left:=Form1.Left;end; 发消息把,在form2上建一消息函数,创建form2和form1移动时,从form1上发消息给form2 求购图书 数据的传递的问题 PSafeArray问题 请问, 我写了一个接收wm_syscommand消息的过程,内容如下,可是其他消息却不好使了????????????? 面试的时候如果这样问你你会怎么说呢? 校园名词与经典诗词~ 关于串口硬流流控的问题 如何实现批量注册WEB帐号,POST方式 MDI窗体中,有一个登陆子窗体,怎样使得程序运行时,子窗体是用户可以访问的,而父窗体用户不能访问!在线等! QuickReport为什么不能用自定义纸张打印啊? 字节数组转换字符串的问题? 动态生成的TTabSheet 退出要报错
form2.Left := Form1.Left - Form2.Width;
form2.top := form1.Top;Form2.show;
begin
Form2.Left:=Form1.Left;
Form2.Show;
end;{加上下面这个,Form2就只能呆在Form1的左边缘跑不掉了}
procedure TForm1.FormPaint(Sender: TObject);
begin
Form2.Left:=Form1.Left;
end;