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

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

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

Form1:

unit F_Form1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, F_RatioBase, DB, RxMemDS, ComCtrls, Buttons, ExtCtrls, RzButton,
  StdCtrls;

type
  TFrmForm1 = 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;
var
  
FrmForm1:TFrmForm1;

implementation

{$R *.dfm}
//构造一个create函数将FOwnerForm 赋值
constructor TFrm
  • 0
    点赞
  • 8
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值