关于如何控制新建的MDIChild窗体的问题(急!)

路人霆 2002-05-12 04:13:10
在private中说明
procedure CreateMDIChild(const name:string);

创建procedure如下:
procedure tmain.CreateMDIChild(const name:string);
var
Child:TForm;
begin
child:=tTxt_MDIchild.Create(Application);
child.Caption:=name;
if fileexists(name) then begin
(child as tTxt_MDIChild).Memo1.Lines.LoadFromFile(name);
end
end;

当我新建新的CDIChild窗口时,如何控制最上面的MDIChild窗口。它的名字是什么?
谢谢~
...全文
44 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
路人霆 2002-05-14
  • 打赏
  • 举报
回复
哦,想了一晚上,想明白了,呵呵,谢谢两位了。
将ttxt_mdichild替换为(activemdichild as ttxt_mdichild)就可以了。
恩,圆满解决了。开心。
路人霆 2002-05-12
  • 打赏
  • 举报
回复
我想对最上面的MDIChild窗口中的memo1操作。
在Self.ActiveMDIChild里没有memo1的定义。
如何实现对memo1的定义。
谢谢!
softwing 2002-05-12
  • 打赏
  • 举报
回复
最上面的MDIChild窗口:Self.ActiveMDIChild
名字, 动态创建Form的名字可以动态赋值
child.Name := 'xxx'
Liusp 2002-05-12
  • 打赏
  • 举报
回复
self.ActiveMDIChild

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧