H
hjhj13a
Unregistered / Unconfirmed
GUEST, unregistred user!
我是一个新手,刚学编一个MDI多文档的编辑器。部分代码为
private
{ Private declarations }
procedure CreateMDIChild(const Name: string);
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
uses CHILDWIN, about;
procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
begin
{ create a new MDI child window }
Child := TMDIChild.Create(Application);
Child.Caption := Name;
if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;
总是在TMDIChild.greate(application); 这出错。难道是没有这个对像,我设了两个表单一个MDIFORM,另一个是MDIChild这是对的。弄了几天不会,请高手帮忙为什么总是TMDIChild.就出错呢??谢谢大家
private
{ Private declarations }
procedure CreateMDIChild(const Name: string);
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
uses CHILDWIN, about;
procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
begin
{ create a new MDI child window }
Child := TMDIChild.Create(Application);
Child.Caption := Name;
if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;
总是在TMDIChild.greate(application); 这出错。难道是没有这个对像,我设了两个表单一个MDIFORM,另一个是MDIChild这是对的。弄了几天不会,请高手帮忙为什么总是TMDIChild.就出错呢??谢谢大家