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;