怎么让打开后的 mdichild 窗口标题显示在窗口菜单? 就像很多 mdi 程序一样,可以通过在"窗口"菜单来选取相应的窗口 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你在NEW->PROJECTS->MDI APPLICATION,就可以新建 一个MDI 的PROJECT,你可以看一看它的代码是怎么写的: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;procedure TMainForm.FileNew1Execute(Sender: TObject);begin CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));end;就只是用了上面的代码就可以了 楼主说清楚点,上面的同志可能搞错了,那段代码是做个想word 一样的多文档程序,在主窗口显示打开后的文件名字 你可以使用MDI Application建立一个新的project后将菜单保留就可以了 我发现问题的所在了,哈哈原来只要指定 Form.WindowMenu 属性就可以了!不需要写任何代码准备结贴,谁要分啊?:) BUTTON的小问题. New 里面找不到multitier (在线等) 急急急!事务处理 reportmachine3.0分栏统计问题,在线等 哪有好的DELPHI的书 一个多月没有来这里,CSDN现在都变成什么样子了,都不认识了。(散分) 初学者请教:程序执行过程中提示“Table is busy...” 为什么Edit没有Alignment 广州请Delphi绝对高手! 如何使得Form窗口的位置不能移动。 access 在什么地方能敲入sql 语句并运行? 紧急关注
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;procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;就只是用了上面的代码就可以了
原来只要指定 Form.WindowMenu 属性就可以了!不需要写任何代码准备结贴,谁要分啊?:)