MDI问题 ( 积分: 50 )

  • 主题发起人 主题发起人 hjhj13a
  • 开始时间 开始时间
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.就出错呢??谢谢大家
 
MainForm主窗体formstyle属性是否设置为fsMDIForm了
 
在File-->New-->other-->Projects,选择MDI Application
有实例。
我看是你把它设置成Auto-create forms:了吧, Ctrl+Shift+F11,把它改成Available forms.
 
我建一个主窗体MDIFORM再建一个MDIcild,简单就是主窗体上放一个按钮,点击按钮,就是新建。问题简化了,到child :=tmdichild()还是出错。真的不明白
 
把MDIcild窗口从 自动创建 的列表里面去掉!
Project -->options...
Forms 页
把MDIcild从Auto-create forms 列表中去掉
 
这是这样做的啊。是不是盗版软件有毛病[:(!][:(]
 
新建一个窗体form3,改一下FormStyle为fsMDIChild,直接在窗体下加入以下:
form3 := tform3.create(Application);
 
后退
顶部