Ich habe eine von TCustomControl abgeleitete Komponente und möchte die Canvas Property nutzen, um visuelle Anpassungen vorzunehmen:
Delphi-Quellcode:
type
myComp = class(TPanel)
private
procedure DrawStuff;
end;
[...]
procedure myComp.DrawStuff;
begin
Canvas.TextOut(Left,Top,'Hello World');
end;
[...]
procedure TForm1.FormCreate(Sender: TObject);
begin
testComp := myComp.Create(self);
testComp.Parent := self;
end;
Leider erhalte ich beim Ausführen die Fehlermeldung "Element 'Name der Komponente' hat kein übergeordnetes Fenster."
Beim Debuggen wird die Fehlermeldung beim Canvas.TextOut ausgespukt. (Jede beliebige andere Funktion von Canvas führt zu diesem Fehler).
Was bedeutet das und wie lässt sich das Problem beheben?