Auf Methoden einer Form zugreifen die über TFormClass erzeug

[shmia]

Zitat von Sharky:

ich "spiele" eben etas mit TFormClass.
Meine Forms (TForm2 und TForm3) haben beide eine Methode .SetLabelText. Gibt es eine andere Möglichkeit auf diese von meiner Form1 zugreifen zu können als wie so:

1.) die Methode muss im published sein. Normalerweise werden nur Properties und Event published gemacht.
2.) die Methode wird dynamisch mit Hilfe von RTTI aufgerufen:

Delphi-Quellcode:

type
   // alle SetLabelText Methoden müssen diese Signatur haben
   TMySpecialMethode = procedure(const data:string) of object;

   procedure CallMySpecialProc(comp: TComponent; const data:string);
   var
      m: TMySpecialMethode;
   begin
      TMethod(m).Data := comp;
      TMethod(m).Code := comp.MethodAddress('SetLabelText');

      if( TMethod(m).Code <> nil )then
      begin
        m(data);  // der Aufruf
      end
      else
      begin
         LogMsg('CallMySpecialProc - %s (%s) has no SetLabelText procedure',[comp.Name,comp.ClassName]);
      end;
   end;

Alternativ kann man auch mit Interfaces arbeiten, da sich damit eine Art von Mehrfachvererbung erreichen lässt.