| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1716 人关注过本帖
标题:[求助]关于MDI主窗体调用MDI子窗体问题
只看楼主 加入收藏
hlw
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-3-26
收藏
 问题点数:0 回复次数:13 
[求助]关于MDI主窗体调用MDI子窗体问题

大家帮忙看下:
procedure Tfjzgl.normaltoimportplanExecute(Sender: TObject);
var
newform:Tfnormaltoimportplan;
i,flag:integer;
begin
flag:=0;
for i:=0 to fjzgl.MDIChildCount do
begin
// 通过对窗体标题判断窗体是否存在
if fjzgl.MDIChildren[i].Caption='普通件转重点件生产计划' then
begin
//如果窗体已存在,则恢复窗体
SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0);
mdichildren[i].show;
mdichildren[i].SetFocus;
mdichildren[i].Enabled:=true;
//标识窗体已存在
flag:=1;
//退出循环
break;
end;
end;
//若窗体不存在,则创建窗体
if flag=0 then
begin
newform:=Tfnormaltoimportplan.Create(application);
newform.Caption:='普通件转重点件生产计划';
end;

if (sender = N20) then
begin
fjzgl.n20.Checked :=true;
fjzgl.n21.Checked :=false;
fjzgl.n22.Checked :=false;
fjzgl.n23.Checked :=false;
fnormaltoimportplan.label22.Caption :=' 铸造';
fnormaltoimportplan.ADOTable1.TableName :='normaltoimportplan-zhuz';
end;
if (sender=N21) then
begin
fjzgl.n21.Checked :=true;
fjzgl.n20.Checked :=false;
fjzgl.n22.Checked :=false;
fjzgl.n23.Checked :=false;
fnormaltoimportplan.Label22.Caption:=' 铆焊';
fnormaltoimportplan.ADOTable1.TableName :='normaltoimportplan-maoh'
;
end;
if (sender=N22) then
begin
fjzgl.n22.Checked :=true;
fjzgl.n21.Checked :=false;
fjzgl.n20.Checked :=false;
fjzgl.n23.Checked :=false;
fnormaltoimportplan.Label22.Caption:='一金工';
fnormaltoimportplan.ADOTable1.TableName :='normaltoimportplan-yijg'
;
end;
if (sender=N23) then
begin
fjzgl.n23.Checked :=true;
fjzgl.n21.Checked :=false;
fjzgl.n22.Checked :=false;
fjzgl.n20.Checked :=false;
fnormaltoimportplan.Label22.Caption:='二金工';
fnormaltoimportplan.ADOTable1.TableName :='normaltoimportplan-erjg';
end;

end;

现在主要问题是:运行后在子窗体没有更改它的labe22的标题,而且明显感觉到只执行了判断子窗体的代码,应该是子窗体没有打开,但用了几种方法都打开子窗体都不行,包括设第三个nform来传递,但无法执行nform:=MDIchild[i].create(self)~~,消去红色的那几个代码,程序就执行的了,不过只是执行MDI主窗体的控件,无法执行MDI子窗体的控件.所以,MDI主窗体如何调用MDI子窗体的控件呢???

搜索更多相关主题的帖子: MDI 窗体 
2007-04-10 18:31
hlw
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-3-26
收藏
得分:0 
帮帮忙吖,在线等~~~
2007-04-10 19:25
hlw
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-3-26
收藏
得分:0 
没人懂吗????
2007-04-10 22:51
hlw
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-3-26
收藏
得分:0 
版主也不会吗??????
2007-04-11 09:41
liuminghui
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:2882
专家分:0
注 册:2007-1-26
收藏
得分:0 

路过的人,帮你顶顶


海鸽 is My Lover!!
2007-04-11 10:49
liuminghui
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:2882
专家分:0
注 册:2007-1-26
收藏
得分:0 
你可以发短信给斑竹和高手的,“用户控制面板”里面有的

海鸽 is My Lover!!
2007-04-11 10:50
liuminghui
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:2882
专家分:0
注 册:2007-1-26
收藏
得分:0 
不要急  会有高手来的啊

海鸽 is My Lover!!
2007-04-11 10:51
liuminghui
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:2882
专家分:0
注 册:2007-1-26
收藏
得分:0 
不要急  会有高手来的啊

海鸽 is My Lover!!
2007-04-11 10:52
liuminghui
Rank: 6Rank: 6
等 级:贵宾
威 望:20
帖 子:2882
专家分:0
注 册:2007-1-26
收藏
得分:0 

不要急 会有高手来的啊


海鸽 is My Lover!!
2007-04-11 10:52
hlw
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-3-26
收藏
得分:0 
估计没人解决的了,看了大概思路,可能要用到更改窗体主子属性问题,复杂,所以我改在子窗体控制了~~~~不想吊死在这个问题上,只有变通~~~
2007-04-12 18:55
快速回复:[求助]关于MDI主窗体调用MDI子窗体问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016963 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved