Denke auch. Mach es jetzt so:
Delphi-Quellcode:
implementation
{$R *.dfm}
uses uMSG;
{TViewMSG}
var MSG:TMSG //Variable, in der (eine Referenz auf) die erzeugende Klasse gespeichert wird.
constructor TViewMSG.Create(Sender: TObject);
begin
inherited Create(nil);
if Sender is TMSG then MSG:=TMSG(Sender);
end;
Das der org. Konstruktor verdeckt ist sollte egal sein, da ich ihn ja mit inherited selber aufrufe und es im Fall des Konstruktors eh egal ist, da ich ja nicht sowas Typecasten oder heißt es Objectcasten würde wie TForm(TViewMSG).Create(nil).