Delphi更改模态窗体标题

Question

如何从模态窗体中更改显示的模态窗体标题。

感谢

科林

Answer 1

为你改变任何形式的标题一样。

有1000种方法，取决于当你想要改变标题。一种方法是这样的：你的模态窗体上放置一个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;