将窗体SENDFORM的FormStyle属性设为:fsMDIForm
在该窗体内分别有两个ONCLICK事件,其事件的代码为(其中一个事件):
Application.CreateForm(TFrmKnowDH,FrmKnowDH);
FrmKnowDH.Show;两子窗体的(其中之一FrmKnowDH)的FormStyle属性设为:fsMDIChildSendForm窗体置于:Auto-create forms里,
而两子窗体置于:available form里~程序编译正常,只是当我在SendForm里执行ONCLICK事件想打开子窗体
子窗体未能打开~也无错误提示,只是ONCLICK事件没有反应.不能将窗口打开~
请问高手们这到里是怎么回一事~
昨天发贴到今天都未能解决.试图打开窗口的事件如下:
procedure TSendForm.RzShapeButton2Click(Sender: TObject);
begin
Application.CreateForm(TFrmKnowDH,FrmKnowDH);
FrmKnowDH.Visible:=True;(这一句有无效果一样)
FrmKnowDH.Show;
end;不知道怎么办~头都想晕了~希望高手能帮忙~在线等啊~
在该窗体内分别有两个ONCLICK事件,其事件的代码为(其中一个事件):
Application.CreateForm(TFrmKnowDH,FrmKnowDH);
FrmKnowDH.Show;两子窗体的(其中之一FrmKnowDH)的FormStyle属性设为:fsMDIChildSendForm窗体置于:Auto-create forms里,
而两子窗体置于:available form里~程序编译正常,只是当我在SendForm里执行ONCLICK事件想打开子窗体
子窗体未能打开~也无错误提示,只是ONCLICK事件没有反应.不能将窗口打开~
请问高手们这到里是怎么回一事~
昨天发贴到今天都未能解决.试图打开窗口的事件如下:
procedure TSendForm.RzShapeButton2Click(Sender: TObject);
begin
Application.CreateForm(TFrmKnowDH,FrmKnowDH);
FrmKnowDH.Visible:=True;(这一句有无效果一样)
FrmKnowDH.Show;
end;不知道怎么办~头都想晕了~希望高手能帮忙~在线等啊~
因为我在该窗体的OnActivate事件写了一个播放音乐的代码。
在我点击:
procedure TSendForm.RzShapeButton2Click(Sender: TObject);
事件时,窗口没有显示,但是音乐却播放了~
所以我感觉到窗体是创建了,只是没有显示~
可是我始终都不知道错在哪~
你是不是没有释放那两个子窗体的资源?if not assigned(FrmKnowDH) then
showmessage('释放了')