TForm kann nicht übergeben werden!!!!

[Sharky]

Das deklarieren des Types muss eigentlich nicht sein oder? Delphi kennt ja schon TFormClass.

Delphi-Quellcode:

procedure ShowModalForm(aNewFormClass: TFormClass);
var
  NewForm: TForm;
begin
  NewForm := aNewFormClass.Create(nil);
  try
    NewForm.ShowModal;
  finally
    NewForm.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowModalForm(TForm2);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowModalForm(TForm3);
end;