Hi,
OK ich glaube jetzt hab ich's.
Bedingt aber oben genannte Erzeugung!
Delphi-Quellcode:
// musst du in eine ander unit stellen !
TXForm =
class( TForm )
procedure BLABLA;
virtual;
abstract;
//
end;
TFormA =
class( TXForm )
procedure BLABLA;
override;
end;
TFormB =
class( TXForm )
procedure BLABLA;
override;
end;
...
FormC
TXForm(Owner).BLABLA;
// ruft automatisch TFormA.BLABLA. oder TFormB.BLABLA;
mfg Rumpi