Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Form an Funktion übergeben

  Alt 28. Jul 2003, 00:12
Moin cYaONE,

welche Typen möglich sind ist Dir doch bekannt, oder?
Dann könntest Du in der Prozedur den Typ abfragen, falls Du die bestimmten Bestandteile eines abgeleiteten Forms brauchst, oder Du gibst Dich mit den Möglichkeiten der Basisklasse zufrieden.

Nur mal so als Beispiel und ungetestet.

Delphi-Quellcode:
var
  f1 : TForm1;
  f2 : TForm2;
//...

begin
  f1 := nil;
  f2 := nil;
  //...
  if Form is TForm1 then begin
    f1 := Form as TForm1;
  end;
  //...
  if f1 <> nil then begin
    f1.Button1.Enabled := true;
  end;
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat