TCustomControl - Fehlermeldung beim Aufurf von Canvas

**Rabenrecht**

Ich habe eine von TCustomControl abgeleitete Komponente und möchte die Canvas Property nutzen, um visuelle Anpassungen vorzunehmen:

zusammenfalten · markieren

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?

TCustomControl - Fehlermeldung beim Aufurf von Canvas

TCustomControl - Fehlermeldung beim Aufurf von Canvas

Forumregeln