Delphi Изменить модальную форму Заголовок

Question

Как изменить заголовок модальной формы во время его показа из модальной формы.

Спасибо

Colin

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;