MDI程序中如何防止一个MDICHILD窗体的多个实例化。另外我想请问:
如何在窗体关闭时显示确认对话框,选“确定”就关,选“取消”不做任何操作。最好给个例子,谢谢各位了。
如何在窗体关闭时显示确认对话框,选“确定”就关,选“取消”不做任何操作。最好给个例子,谢谢各位了。
解决方案 »
- mdi应用程序问题?
- 既然这样我出100分请指教,解决了就结算。如果回答的人多连带另外两个100分的帖子一起送 300分
- 做过的人都知道,如何设置一个组件的默认值!(Tedit)
- 当我创建一个线程更新主窗口的内容后,退出程序时显示如下错误,但运行中一切正常,究竟是怎么回事?
- 如何将一个工具条嵌到IE中。
- 我的一个用于计算的BUTTON.ONCLICK事件里有1300条语句,每次点击它计算时,第一次计算的结果根本就不对,只有再次点击它一次,结果才计算
- 用SHELLEXECUTE运行一个程序,之后再如何关闭它?
- delphi+access
- 想换工作的报个到,今年的工作好换吗?
- 关于ADO中类似CachedUpdates的问题,只是手头没有资料所以必须,有劳各位。
- 急!急!关于文件上传和下载的问题!怎样实现下载一个目录
- liuri(璇玑)进来聊!
else Application.CreateForm(TChild01,Child01);注意在Child01的OnClose中写:
Action:=caFree;
Child01:=nil;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('确定要关闭吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
CanClose:=true
else CanClose:=false;
end;
procedure createchildform;
var
i:integer;
begin
with application.mainform do
begin
//扫描当前是否有欲创建的窗体存在,如果有将其置前,否则创建
for i := 0 to mdichildcount - 1 do
if mdichildren[i].classname = _will_create_child_form.classname then
begin
mdichildren[i].bringtofront;
exit;
end;
_will_create_child_form := T_will_create_child_form.create(application);
end;
end;