Einzelnen Beitrag anzeigen

Martin W

Registriert seit: 29. Mai 2004
Ort: Augsburg
220 Beiträge
 
Delphi XE3 Enterprise
 
#1

TForm kann nicht übergeben werden!!!!

  Alt 25. Dez 2005, 16:05
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. !!!
  Mit Zitat antworten Zitat