[Delphi]将一个窗体Form1嵌入另一个窗体Form2

在做较大功能模块时常常需要调用已经写好的页面, 对于某些诸如向导/步骤式的模块每次弹出页面是不太友好的, 因此我尝试将已有的页面嵌入新做的页面中.(事实上原工程中form2用groupbox做的向导页, 是form1嵌入form2中的某一标签页中实现向导切换)

以下为部分代码(由于项目保密, 在原工程上有删减),只列出实现效果的关键代码.

Form1:

unit F_Form1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, F_RatioBase, DB, RxMemDS, ComCtrls, Buttons, ExtCtrls, RzButton,StdCtrls;typeTFrmForm1 = class(TForm)btnOK: TRzBitBtn;btnCancel: TRzBitBtn;Panel1: TPanel;Panel2: TPanel;private{ Private declarations }FOwnerForm : TForm;procedure LocateData;override;procedure InitCoordinate; override;public{ Public declarations }//为了屏蔽父类的一个虚方法, 在子类中生成一个新的方法, 响应父窗体事件的关键constructor Create(AOwner: TComponent; OwnerForm: TForm ); reintroduce; end;
varFrmForm1:TFrmForm1;implementation{$R *.dfm}
//构造一个create函数将FOwnerForm 赋值
constructor TFrmForm1.Create(AOwner: TComponent; OwnerForm: TForm);
begininheritedCreate(Aowner);FOwnerForm := OwnerForm;
end;procedure TFrmForm1.FormCreate(Sender: TObject);
begininherited;//初始化
end;end.

Form2:

unit F_Form2;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, GridsEh, DBGridEh, RzTabs, Menus, DB, hsDbUnit, ToolWin,ComCtrls, RzBckgnd, RzPanel, RzButton, ExtCtrls, Contnrs, Math;
//省略部分
typeTFrmForm2 = class(TForm)BtnOK: TRzBitBtn;Panel1: TPanel;BtnCancel: TRzBitBtn;procedure FormCreate;privateprocedure ShowForm1;{ Private declarations }publicEditMode : string;{ Public declarations }end;varFrmForm2: TFrmForm2;
implementation
usesF_Form1;
{$R *.dfm}{界面创建销毁}
procedure TFrmForm2.FormCreate;
begininherited;Application.HintHidePause := 30000;//hint显示时间延长至最多30秒
end;procedure TFrmForm2.FormShow(Sender: TObject);
beginBtnOK.Visible := False;btnBack.Visible := False;btnNext.Visible := False;
end;procedure TFrmForm2.ShowForm1;
beginif Assigned(FrmForm1) thenExit;FrmForm1 := TFrmForm1.Create(Panel1,self);FrmForm1.WindowState := wsMaximized;FrmForm1.Parent := Panel1;FrmForm1.BorderStyle := bsNone;FrmForm1.Align := alClient;   //全部占满FrmForm1.btnOK.Visible := False;FrmForm1.btnCancel.Visible := False;//可参数传入传出FrmForm1.Show;
end;end.

必须要注意的是, 我在此项目中遇到由于本工程Form1继承自另一页面,导致其中有个dbgrid创建了却没有立即显示,页面显示完全后面再触发调用ShowForm1方法才能正常显示. 因此最好在formshow方法结束后,即页面完全显示以后动态创建.

[Delphi]将一个窗体Form1嵌入另一个窗体Form2相关推荐

在一个窗体中调用另一个窗体的控件或方法(C#)
在一个窗体中调用另一个窗体的控件或方法解决方案:从构造函数中传递参数(Form). 1.将Form1中的控件改成public属性具体实现过程请参看一下代码(在form1的textbox1中输入然后 ...
如果关闭一个窗体后激活另一个窗体的事件或方法
1 在被调用窗体(fmain)中将所要调用的方法设为public 2 修改调用窗体(f)的构造函数 private frmMain fmain; public fref(frmMain fMain) ...
Winforn中怎样在窗体中打开另一个窗体
场景在Winform的窗体A中打开另一个窗体B. 实现 //打开新的窗体 CurveCompare cc = new CurveCompare(); cc.Show(); 效果以上代码的实现参照: ...
一个程序通过窗体句柄控制另一个窗体
接下来,我们来演示不同程序中,怎么通过窗体句柄控制其它程序窗体. 演示的例子是:控制系统的记事本窗体,先移动,再最大化,最后关闭要求:桌面上有一个记事本,名称是:测试文本.txt - 记事本,保证是 ...
c#中在一个窗体中触发另一个窗体的事件
创建两个窗体,分别为form1,form2,在form1中添加控件textBox1和button1,创建一个form2的对象Form2 b = null; 在form2中添加button1,定义委托和 ...
WinForm窗体中如何在一个窗体中取到另一个窗体的值
例如我们定义两窗体,Form1和Form2,如何在Form2中取到Form1中的一个值呢? 解决方法1: 在Form1 中定义一个成员变量,例如public string a = " &qu ...
C# WinForm只允许运行一个窗体实例
大概看了看别人的方法,都是从语法的角度巧妙实现的. 我要实现的目的是dialogForm.Show(); 点击按钮显示对话框窗体,如果窗体没有关闭,再次点击,不重复显示. 我用了个笨方法,就是用一个静 ...
access主窗体名词解释_ACCESS 父子窗体的语法介绍
如果你在主窗体如果你在子窗体 1 要参照一个窗体属性,例如: RecordSource 在主窗体 Me.RecordSource Me.Parent.RecordSource 在子窗体 1 Me! ...
在Form1中打开另一个窗体Form2
private void tsb_OpenForm2_Click(object sender, EventArgs e) { //设置Form2窗体实例只能是一个 ...

[Delphi]将一个窗体Form1嵌入另一个窗体Form2

[Delphi]将一个窗体Form1嵌入另一个窗体Form2相关推荐

最新文章

热门文章