时间戳

首页 > 解决方案 > 如何在 C++Builder 中关闭停靠的 VCL 表单

c++builder - 如何在 C++Builder 中关闭停靠的 VCL 表单

问题描述

我正在将 C++Builder 与 VCL 表单应用程序一起使用。我正在尝试关闭停靠在 TPageControl 上的 VCL 表单。我的关闭按钮位于程序主窗体的工具栏上。我这样做的方法是以下三个步骤：我可以单步执行所有这些代码，但是当它完成时，没有任何反应，表单没有关闭。我在这里做错了什么？

  1. 单击停靠的表单时，我将表单名称保存到全局变量。
  2. 单击 CloseButton 时，我使用 Screen->Forms[] 循环遍历所有表单并找到正确的表单。然后我调用事件表单->OnCloseQuery。
  3. 在 FormCloseQuery 事件中，我调用 FormClose 事件。

.

void __fastcall TAboutForm::FormClick(TObject *Sender)
{
  MainForm1->LastSelectedFormName = AboutForm->Name;
}

void __fastcall TMainForm1::CloseButtonClick(TObject *Sender)
{ //Identify The Form to Delete by Name
  bool q=true;
  UnicodeString FormName="";

  int cnt = Screen->FormCount;
  for(int i=0; i<cnt; i++ )
  {
    TForm* form = Screen->Forms[i];
    FormName = form->Name;
    if(CompareText(FormName, LastSelectedFormName)==0){
      form->OnCloseQuery(form, q);  //close this form
      break;
    }
  }
}

void __fastcall TAboutForm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  int Code = Application->MessageBox(L"Close Form", L"Close Form", MB_YESNO|MB_ICONINFORMATION);

  if(Code ==IDYES){
    TCloseAction Action = caFree;
    FormClose(Sender, Action);
  }
}

void __fastcall TAboutForm::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caFree;
}

以下是阅读 Spektre 的答案后的编辑

调用 form->OnClose(form, MyAction); 不会触发 FormCloseQuery 事件。我必须手动调用 FormCloseQuery。我可以关闭停靠表单的唯一方法是添加、删除发件人；到 FormCloseQuery。

这看起来不像是一个正确的解决方案。我很惊讶 Embarcadero 没有推荐的方法来关闭停靠的表单。这似乎是一个很常见的动作。我阅读了 doc-wiki，找不到任何关闭停靠表单的解决方案。 

void __fastcall TMainForm1::CloseButtonClick(TObject *Sender)
{ //Identify The Form to Delete by Name
  bool MyCanClose=true;
  UnicodeString FormName="";
  TCloseAction MyAction = caFree;
  int cnt = Screen->FormCount;

  for(int i=0; i<cnt; i++ )
  {
    TForm* form = Screen->Forms[i];
    FormName = form->Name;
    if(CompareText(FormName, LastSelectedFormName)==0){
//    form->OnClose(form,      MyAction);
      form->OnCloseQuery(form, MyCanClose);
      break;
    }
  }
}

void __fastcall TAboutForm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  int Code = Application->MessageBox(L"Close Form", L"Close Form", MB_YESNO|MB_ICONINFORMATION);

  if(Code ==IDYES){
    delete Sender;
    Sender = NULL;
  }
}

标签： c++buildervcl

解决方案

您需要调用Form->Close()而不是，Form->OnCloseQuerty()但保留事件代码（因为您想要关闭确认对话框）

  1. Form->OnCloseQuerty()

    被VCL调用你不应该自己调用它！它有不同的含义，它不会强制Form关闭，但如果设置为 ，它可以拒绝Close事件。CanClosefalse

  2. Form->Close()

    这一个强制Form关闭。但首先VCL将调用Form->OnCloseQuerty()并根据其结果忽略 Close 或继续它。

还有另一种选择来做你想做的事。如果您只想隐藏您的表单，您也可以将其Visible属性设置为 false。当想要再次使用它时，只需使用Show()或什至ShowModal()或将其设置Visible为True再次（这取决于您的应用程序是否为MDI）。

另一种方法是使用动态创建和删除表单new,delete。Form无论Form->OnCloseQuery()结果如何，表单的删除都会强制关闭。

我有时将这两种方法结合起来......并在App销毁之前和之前设置Visible=falseand都是动态的......CanClose=falseOnCloseQuery()deleteForms

推荐阅读