分配给 Setparent(..) 后 Showmodal 中的问题 [英] Problems in Showmodal after assigning to Setparent(..)

问题描述

我创建了两个应用程序 MainApps 和 SubApps，SubApps 有一个模式类型对话框，例如登录/注销表单等，并且工作正常.

I created two application MainApps and SubApps, the SubApps has a modal type dialogbox such as login/logout form etc. and its working fine.

将它附加到 MainApps 后，模态对话框显示为正常的框形式.它的行为类似于DIALOG.SHOW"而不是DIALOG.SHOWMODAL"；

After I attach it to the MainApps, the Modal Dialog box shows like normal box form. It behaves like "DIALOG.SHOW" instead of "DIALOG.SHOWMODAL";

我正在使用delphi编译器

I am using delphi compiler

子应用按钮点击；

  begin
    with TfrmDialog.Create(Self, dtLogout) do
    try
      iMsgResult := ShowModal;
    finally
      Free;
    end;
    if iMsgResult = mrOk then
    begin
      dmVoca.FHomeworkXMLDoc.Active := False;
      //Disabled Double Login
      dmVoca.tmrDoubleLogin.Enabled := False;
      ................
    end;  
  end;

MainApps 按钮单击

MainApps ButtonClick

begin
setparent(findwindow(nil,'SubApps'),TabSheet1.Handle);
.........
end;

推荐答案

不要惊讶，你正在尝试的东西充其量是不寻常的.ShowModal 通过禁用调用线程的所有窗口，除了模态窗体来实现模态效果.由于您的父表单不属于同一个线程，甚至不属于同一个进程，因此它不会被禁用.请参阅 forms.pas 中的 DisableTaskWindows 以了解在调用ShowModal"时如何禁用表单.

Don't be surprised, what you are trying is unusual at best. ShowModal achieves the modal effect by disabling all the windows of the calling thread but the modal form. Since your parent form do not belong to the same thread, not even to the same process, it does not get disabled. See DisableTaskWindows in forms.pas to understand how the forms are disabled when 'ShowModal' is called.

您必须设计自己的模态程序；测试应用程序是否在不是桌面的顶级窗口中作为父级窗口，如果是，请禁用该窗口.

You have to devise your own modal procedure; test if the application is parented in a top level window that's not the desktop, disable that window if that's the case.

但如果我是你，我会首先考虑设计，如果，例如，你关闭父窗体，你如何结束父窗体的进程?<小时> 对于下面的第三条评论 - 您可以尝试让 MainApps 表单拥有"模态表单.当 MainFormOnTaskbar 为真时，类似于应用程序主窗体拥有的窗体.请参阅 拥有的窗口 on 窗口功能 msdn 的主题.

But if I were you I would think on the design first, what if, f.i., you close the parent form, how do you end the parented form's process?

---

edit: for 3rd comment below - you might try having the modal form "owned" by the MainApps's form. Similiar to forms being owned by the application main form while MainFormOnTaskbar is true. See owned windows on Window Features topic of msdn.

var
  frmDialog: TfrmDialog;
begin
  [...]
  frmDialog := TfrmDialog.Create(Self, dtLogout);
  try
    SetWindowLong(frmDialog.Handle, GWL_HWNDPARENT, GetAncestor(Handle, GA_ROOT));
    iMsgResult := frmDialog.ShowModal;
    [...]

我谦虚地建议您就您想要实现的设计建议提出一个问题，例如，如果它是关于代码重用，您可以在 dll 中托管您的 SubApps 表单...这种设计很脆弱，您可能会继续遇到问题...

I'd humbly suggest you to ask a question on a suggestion of a design for what you want to achieve, for instance, if it is about code reuse you could host your SubApps forms in a dll... This design is fragile, you may continue to run into problems with it...

这篇关于分配给 Setparent(..) 后 Showmodal 中的问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！