delphi如何实现像excel中那样,有多个窗口,窗口可以最大化。但是只能在父窗口移动
delphi如何实现像excel中那样,有多个窗口,窗口可以最大化。但是只能在父窗口移动,最大化之后,子窗口的关闭按钮紧挨着父窗口的关闭按钮。就像截图一样。...
delphi如何实现像excel中那样,有多个窗口,窗口可以最大化。但是只能在父窗口移动,最大化之后,子窗口的关闭按钮紧挨着父窗口的关闭按钮。就像截图一样。
展开
2个回答
展开全部
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 看看代码
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;
...............
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询