MDI 多文档界面
用向导 新建个 mdi 看看代码
delphi7上 file ,new ,other, project ,MDI Application
type
TMDIChild = class(TForm)//看看 是从TForm类派生
Memo1: TMemo;//包装了个Memo
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
//主文件中的一个过程 创建子窗体.....
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;
...............
使用MDI窗口。
具体做法有视频教学。
http://v.youku.com/v_show/id_XNDM1MjY3MzA4.html