如何在按钮单击时调用弹出框架

Question

我希望在我的模块中单击按钮时弹出框架，但我无法得到它。它始终附加到我现有的打开框架，我现有的开放框架布局将与此调出框架重叠。

以下是我正在编写的内容：

procedure TWidgetFrame1.acBtnExecute(Sender: TObject);
begin
  inherited;
  WidgetFrame2 := TWidgetFrame2.Create(Owner);
  WidgetFrame2.Parent := TWinControl(Owner);
end;

请在此帮助~~~~因为这是我第一次使用widget框架。

Answer 1

将框架的Parent设置为自己的弹出框TForm，而不是创建它的框架的Owner。

procedure TWidgetFrame1.acBtnExecute(Sender: TObject);
var
  Frm: TForm;
begin
  Frm := TForm.CreateNew(Owner);
  WidgetFrame2 := TWidgetFrame2.Create(Frm);
  WidgetFrame2.Parent := Frm;
  Frm.Show;
end;