forms - Delphi - 如何从该表单上的 TFrame 中关闭表单？

Question

在 Delphi 2010 中，我正在创建一个表单，然后创建一个 TFrame，将 TFrame.Parent 分配给该表单，然后以模态方式显示该表单。工作正常...框架有一个 DBNavigator、一个字段 DBFields 等。当用户点击发布/保存时，我想自动关闭表单。我已经尝试了一些东西，例如 Close、Action = caFree、(DBNav.parent.parent) as TForm.Free 等，但似乎没有任何效果。我如何 - 从 TFrame 中关闭表单？

创建这个东西的代码是......

 // Create the Window
    ThisWin := TEmptyFrameWin.Create(nil);

  // Create the Frame for the Window
  ThisFrame := TFrameUsage.Create(Application);

  ThisFrame.Parent := ThisWin;

  // Load the data
  ThisFrame.tUsage.Open;
  ThisFrame.tUsage.FindKey([StrToInt(ID)]);
  ThisFrame.LoadDateFields;

  ThisWin.Caption := 'Change Appointment Information';
  // Only show the POST button    
  ThisFrame.UsageNav.VisibleButtons := [sbPost];

  try
    ThisWin.ShowModal;
  finally
    ThisWin.Free;
  end;

谢谢，

GS

Answer 1

从框架类中的方法，您可以通过调用GetParentForm. 因此，以下内容将满足您的需求：

GetParentForm(Self).Close;