TForm kann nicht übergeben werden!!!!

[Martin W]

Hi!!!

Ich habe ein dringendes Problem Also folgendes. Ich habe 3 Prozeduren, die wie folgt aussehen:

Delphi-Quellcode:

procedure Tconfig_form.Button1Click;
begin
  with TForm_1.Create(nil) do
    begin
      Showmodal;
    end;
end;

Delphi-Quellcode:

procedure Tconfig_form.Button2Click;
begin
  with TForm_2.Create(nil) do
    begin
      Showmodal;
    end;
end;

Delphi-Quellcode:

procedure Tconfig_form.Button3Click;
begin
  with TForm_3.Create(nil) do
    begin
      Showmodal;
    end;
end;

Ist ja alles das selbe, was liegt also nahe? Ich kam auf die Idee die methode (hoff mal das ist das richtige Wort ) rauszuholen...

Sieht jetzt so aus:

Delphi-Quellcode:

procedure Tconfig_form.CreateShowmodalForm(ShowForm: TForm);
begin
  with ShowForm.Create(nil) do
    begin
      Showmodal;
    end;
end;

Aufrufen müsste ich das ganze jetzt so

CreateShowmodalForm(TForm_1); Beim Komilieren kommt folgender Fehler:

Zitat:

[Fehler] config_unit.pas(291): E2010 Inkompatible Typen: 'TCustomForm' und 'Class reference'

Also hab ich das ganze so umgeschrieben:

CreateShowmodalForm(Form_1); Hab also das T vor der Form weggelassen... aber jetzt kommt ne Fehlermeldung beim ausführen!

Zitat:

Erste Zufalls-Exception bei $7C81EB33. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 004D5E68 in Modul 'Supportabeilung.exe'. Lesen von Adresse 00000000'. Prozess Projekt1.exe (2932)

Was soll ich tun...?

Liebe Weihnachtsgrüße
Martin W. !!!

[GuenterS]

Hm das ist klar...

Du darfst Deiner Methode auch nicht einen Typ von TForm übergeben sondern definier dir einen Typ wie
TFormClass = class of TForm und verwende diesen.

Beispiel:

Delphi-Quellcode:

...

type 
   TFormClass = class of TForm;



procedure Tconfig_form.CreateShowmodalForm(ShowForm: TFormClass); 
begin 
  with ShowForm.Create(nil) do 
    begin 
      Showmodal; 
    end; 
end;

[Martin W]

Danke dir !!!!

[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;

[GuenterS]

Oh ... dann wäre es sicher besser TFormClass zu verwenden.