OK Nochmal!
Eine Frage aus der Kategorie noch keinen Kaffee, wo liegt mein Denkfehler?
Delphi-Quellcode:
type
TVater = Class(TForm)
public
Procedure SetFoo(A:TComponent);Virtual,Abstract;
end;
TMyForm = class(TVater)
public
Procedure SetFoo(A:TComponent);
end;
FC : Class of TForm;
var
AktForm : TVater;
begin
FC := GetForm('FormName'); // holt die Registriere Formclass TMyForm... (Source verkürzt)
AktForm := TVater(FC.Create(Self)); // Blödes Typecast?!
AktForm.SetFoo(Self); // <- Abstracter Fehler
end;
Stehe gerade auf dem schlauch..
Mavarik