如何让一个窗体定位在另一个窗体上指定的位置[要Delphi语言]

如何让一个窗体定位在另一个窗体上指定的位置 [要Delphi语言]

比如:第一个程序的窗体 窗口标题为 ‘ 我的标题 ’ 窗口类名为 ‘ Tabc ’

那么我另一个程序窗体运行后 在第一个程序窗体上的某个指定位置上

第一个程序的窗体移动 另一个也跟着移动 不管怎样 另一个窗体始终在第一个程序的窗体的某个指定位置上

请 写出 完整代码 谢谢各位

第1个回答  2010-05-03
如果在form1上打开form2
那可以设置 form2.top 和 form2.left 至于修改到什么程度,你可以对应form1.top form1.left,比如
form2.top:=form1.top+20;
form2.left:=form1.left;

自己看看效果
第2个回答  2010-04-22
是不是类似于千千静听里的那样的,每个窗体靠在另个窗体上,一个移动另一个也跟着移动?

如果这样的话你完全可以在第一个窗体的onResize或是拖动事件里控制第二个从窗体呀...

希望能帮到你...
第3个回答  2010-04-22
找到窗体的HWND后(FindWindow),调用SetParent API

如何让一个窗体定位在另一个窗体上指定的位置[要Delphi语言]
如果在form1上打开form2 那可以设置 form2.top 和 form2.left 至于修改到什么程度,你可以对应form1.top form1.left,比如 form2.top:=form1.top+20;form2.left:=form1.left;自己看看效果

如何定位文件中的指定的一个位置(delphi)?
用panel控件。如:有两个窗体,form1、form2,且form2是主窗体。希望把 form2 放在form1的某个位置,你可以这样做:先在form1上放置一个panel,然后,在form1的onshow事件中,添加如下代码:procedure tform1.formshow(sender:tobject);begin with form2 do begin parent:=panel1;left:=0;top:=...

delphi 如何通过单击一个窗体的按钮给另一个窗体的控件赋值
如过是静态窗体,可用如下办法实现:在主窗体的“接口部分”引用“子窗体单元”;在子窗体的“实现部分”引用“主窗体单元”。如:form1(unit1)为主窗体,form2(unit2)为子窗体。===unit Unit1;interfaceuses unit2,{***} Windows, Messages, SysUtils, Variants, Classes, Graphics, Cont...

delphi中 dbgird某行被选中,点击修改在另一个窗体得到该行的值,并...
edit2.Text:=fr_sjmk.TB_yhlx_sjbj.FieldValues ['就诊时间'];end;fr_sjmk.TB_yhlx_sjbj是一个放在fr_sjmk数据模块上的ADOdataset组件;edit等组件就是数据编辑窗口上的编辑组件。procedure Tfr_mai.DBGridEh1CellClick(Column: TColumnEh);begin if tabsheet12.Showing then begin xsqfsj; \/...

Delphi中从一个窗体传参数到另一个窗体的办法有哪些?
session相当于delphi全局变量,你可以用全局变量,但建议,最好方法,就是写个带参数的方法,调用时传入即可 如你可以在你要调用的这样写 private FMyValue:string;public procedure SetParam(MyValue:string);...procdure TForm1.SetParam(MyValue:string);begin FMyValue := MyValue;end;MyValue 就你...

delphi如何将stringGrid里面的内容显示到另一个form的edit中
将stringGrid里面的内容显示到另一个form的edit中 stringgrid的双击事件和单击事件都一样:var i,j:integer;begin i:=sg.Col;j:=sg.Row;from2.edit1.text:=stringgrid.Cells[i,j];Close;from2.Show;end;一个窗体的某个按钮如何调用另一个窗体中stringGrid的双击触发事件程序 :比如说是button...

Delphi如何设置窗体位置
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) private { Private declarations } procedure WMMOVE(var Msg: TMessage); message WM_MOVE; public { Public declarations...

delphi如何将子窗体的显示位置设置到主窗体的中间
窗体中放有timage控件,根据timage中图片的尺寸自动调整大小 参考实现:form.position :=poMainFormCenter Form1.Left := (Screen.Width - Form1.Width) div 2;Form1.Top := (Screen.Height - Form1.Height) div 2;

delphi问题:窗体怎么另存成另一个?
File-New-Other 打开New Items对话框 在对话框里有一个页面是你工程的名字,选中你的工程的名字页面,里面会有你所创建的窗体,,你选中你想新建的窗体,再点OK就可以了 如果想用搬到另一个项目中的话,,就要把该窗体的文件Add to project就OK ...

delphi 程序中一窗体置底层问题
父窗体子窗体模式 新建一个窗体,将formstyle设置为fsMDIForm 其他的都设置为fsMDIChild 同时在project中选择options在forms页,将autocreateforms下面只留父窗体就可以了 我这边说的仅仅是步骤 如果你想深入了解,最好去网上找点相关资料了解下 毕竟大多数系统都是这个模式 ...

相似回答