604
社区成员
发帖
与我相关
我的任务
分享关于MDI界面的问题
在MDI中，怎样判断一个子窗口是否已经打开？
怎样修改主窗口的关闭过程（在关闭是先弹出一个询问窗口，确定后在关闭）
请高手指点！
谢谢!
怎样修改主窗口的关闭过程（在关闭是先弹出一个询问窗口，确定后在关闭）
请高手指点！
谢谢!
...全文
请发表友善的回复…
发表回复
afeisky 2001-12-06
- 打赏
- 举报
taxi(游少爷)的方法是可以的啊.
peter_xiong 2001-12-06
- 打赏
- 举报
判断子窗口是否打开好象不行
taxi 2001-12-06
- 打赏
- 举报
if FindComponent('TXXXForm') <> nil then
taxi 2001-12-06
- 打赏
- 举报
for i := 0 to MDIChildCount - 1 do
if MDIChildren[i].ClassName = 'TXXXXForm' then
begin
ShowMessage('TXXXXForm打开了');
break;
end;
if MDIChildren[i].ClassName = 'TXXXXForm' then
begin
ShowMessage('TXXXXForm打开了');
break;
end;
taxi 2001-12-06
- 打赏
- 举报
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := MessageDlg('你确定要关闭吗？', mtConfirmation, [mbYes, mbNo], 0) = mrYes;
end;
begin
CanClose := MessageDlg('你确定要关闭吗？', mtConfirmation, [mbYes, mbNo], 0) = mrYes;
end;
