Delphi_子窗体继承父窗体后如何显示父窗体上的控件

1.创建子窗体Form1

File -> New -> Form,新建一个form,在form的单元文件中修改

2.子窗体中引用父窗体单元

uses TFatherForm

3.将子窗体中代码修改

TForm1 = class(TForm) 改为

TForm1 = class(TFatherForm) //TFatherForm为被继承的窗体

4.在Form窗体上弹出右键菜单,选择View As Text

把第一行的Object 改成 inherited 后保存;

5.在Form标签上点击右键,选择View Form;就可以看到继承的窗体了。

转载于:https://www.cnblogs.com/Jerrry/p/6703165.html

Delphi 中,可以使用以下步骤将窗体的值传递给窗体: 1. 在窗体中定义一个公共的属性,用于保存要传递的值。 2. 在窗体中创建一个公共的方法,用于将需要传递的值设置到属性中。 3. 在窗体中创建一个公共的方法,用于接收窗体传递的值。 4. 在窗体中创建窗体的实例,并调用窗体的设置值方法。 5. 在窗体关闭时,调用窗体的接收值方法,以便在窗体中更新相应的控件。 以下是示例代码: 在窗体中定义公共属性和方法: ```delphi type TChildForm = class(TForm) private FValue: Integer; public procedure SetValue(AValue: Integer); end; implementation procedure TChildForm.SetValue(AValue: Integer); begin FValue := AValue; end; ``` 在窗体中定义公共方法: ```delphi type TMainForm = class(TForm) public procedure UpdateValue(AValue: Integer); end; implementation procedure TMainForm.UpdateValue(AValue: Integer); begin // 在这里更新窗体中需要显示窗体值的控件 end; ``` 在窗体创建窗体实例并调用设置值方法: ```delphi var ChildForm: TChildForm; begin ChildForm := TChildForm.Create(Self); ChildForm.SetValue(123); ChildForm.Show; end; ``` 在窗体关闭时,调用窗体的接收值方法: ```delphi procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction); begin if Assigned(Owner) and (Owner is TMainForm) then TMainForm(Owner).UpdateValue(FValue); end; ```
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值