专家生成窗体的dfm文件为
object BaseForm1: TBaseForm1
Left = 0
Top = 0
Caption = 'Base1'
ClientHeight = 202
ClientWidth = 304
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
end
uint文件为
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
System.Actions, Vcl.ActnList,
VIS.UI.Base;
type
TBaseForm1 = class(TBaseForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
BaseForm1: TBaseForm1;
implementation
{$R *.dfm}
end.
我定义formfile的时候是
'Inherited %0:s: T%0:s'+nl+
' Caption = ''%0:s'''+nl+
'end';
怎么能保持这个 inherited呢,因为BaseForm上有控件的,想把baseForm上的控件继承过来