德尔福改变模态形式标题

Question

如何在模态表格中更改模态表格标题。

由于

科林

Answer 1

与更改任何表单的标题的方式相同。

有一千种方法，取决于何时要更改标题。一种方法是：在模态表单上放一个TButton，然后写

procedure TForm2.Button1Click(Sender: TObject);
begin
  Caption := 'New caption';
end;

Answer 2

procedure MyMainForm.ShowForm(ACaption: String);
var
  dlgForm: TForm;
begin
  dlgForm:= TForm.Create(Nil);
  try
    dlgForm.Caption:= ACaption;
    dlgForm.ShowModal;
  finally
    FreeAndNil(dlgForm);
  end;
end;