Delphi,如何制作独立的窗口

概述我有一个使用Chrome浏览器等标签的应用程序.现在我希望能够打开更多表格而不仅限于一种表格.这些表格应该是相同的,但如果我关闭主表格,所有表格都将被关闭.如何使所有表格都相同,所以无论我关闭哪种形式,只关闭该表格而不是在所有表格关闭之前退出申请？有任何想法吗？ Image of my explorer 亲切的问候 Roy M Klever 这样做并不难,尽管它会很快变得复杂,具体取决于你想要它的 我有一个使用Chrome浏览器等标签的应用程序.现在我希望能够打开更多表格而不仅限于一种表格.这些表格应该是相同的,但如果我关闭主表格,所有表格都将被关闭.如何使所有表格都相同,所以无论我关闭哪种形式,只关闭该表格而不是在所有表格关闭之前退出申请？有任何想法吗？

Image of my explorer

亲切的问候
Roy M KLever

解决方法 这样做并不难,尽管它会很快变得复杂,具体取决于你想要它的完整程度.让多个模态对话框独立工作是一项艰巨的任务.

首先,您需要完全避免Application.MainForm.始终使用Form：= TMyForm.Create(Application)而不是Application.CreateForm(TMyForm,Form).后者设置了MainForm,你永远不希望这种情况发生.

要使事情正常关闭,您需要在表单的OnClose事件处理程序中执行以下 *** 作：

if Screen.FormCount = 1 then  Application.Terminate;CloseAction := caFree;

Application.Run依赖于MainForm的分配,因此在你的DPR中用这个循环替换该行：

repeat  try    Application.HandleMessage;  except    Application.HandleException(Application);  end;until Application.Terminated;

有几种方法可以处理任务栏条目.

>单个任务栏条目：设置Application.MainFormOnTaskbar：= False;并将使用隐藏的TApplication句柄.单击任务栏条目将使所有窗口都显示在前面.您需要覆盖Application.OnMessage或添加TApplicationEvents组件,并使用Msg.Handle = Application.Handle`监视WM_CLOSE.在这种情况下,用户右键单击任务栏并选择“关闭”,因此您应该关闭所有窗口.
>多个任务栏条目：设置Application.MainFormOntaskbar：= True.覆盖表单的CreateParams方法并设置Params.WndParent：= 0;.每个任务栏条目都将控制该表单.

可能还有其他一些问题,但这是基础知识.

正如我所说,使ShowModal和topenDialog / TSaveDialog独立工作,所以它只影响它的父窗体,因此可以一次打开多个对话框,是一大堆工作,我不能真正推荐它.如果你是一个受虐狂,这里是一般步骤：

>将TCustomForm.ShowModal替换为自定义版本.除此之外,该例程禁用了应用程序中的所有其他窗口,因此您需要使用EnableWindow(Owner.Handle,False / True)替换disableTaskwindows / EnableTaskwindows调用以仅禁用父窗体.此时,您可以打开多个对话框,但它们只能以后进先出顺序关闭,因为调用最终是递归的.如果没关系,请停在这里.

有两种方法可以解决这个问题：

>而不是使ShowModal阻塞,让StartModal和EndModal例程具有ShowModal代码的第一位和最后一位,并在关闭对话框时调用OnShowModalDone事件.这是一种使用起来很痛苦,但相对容易编码并且易于稳定.
>使用windows fiber routines交换堆栈并启动新的消息循环.这种方法很容易使用,因为ShowModal是阻塞的,所以你可以像平常一样调用它.这是我们在Beyond Compare中使用的方法.不要这样做.编写起来很复杂,如果存在全局消息挂钩或者如果您的任何代码不是光纤安全的话,它可能会遇到麻烦.

>常见的对话框(topenDialog,TcolorDialog等)也有类似的限制.要使它们只禁用父窗体,您需要覆盖TCommonDialog.TaskModalDialog并替换那里的disableTaskwindows / EnableTaskwindows调用.它们不能像上面的常规Delphi对话那样异步,因为它们阻止了windows(GetOpenFileName,ChooseColor等)提供的功能.允许那些以任何顺序关闭的唯一方法是让每个对话框在专用线程中运行.只要您小心访问VCL对象,windows就可以处理大部分同步,但它基本上涉及重写Dialogs.pas的大部分内容.

总结

以上是内存溢出为你收集整理的Delphi,如何制作独立的窗口全部内容，希望文章能够帮你解决Delphi,如何制作独立的窗口所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。