Instance member 'Canvas' inaccessible here / Eigene Klasse

[Whistler]

Guten Abend,

ich möchte eine eigene Klasse schreiben, welche von TListbox ableite.
Hier möchte ich das "OnDrawItem"-Ereignis überschreiben...

Innerhalb des Ereignis nutze ich den Befehl "Canvas". Das möchte Delphi augescheinlich nicht, da der Compiler meldet:

Zitat:

Instance member 'Canvas' inaccessible here

Delphi-Quellcode:

procedure TCustomListbox.DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  inherited;
  with TCustomListbox.Canvas do
  begin
    Pen.Color := clWhite;
    [...]
  end;
end;

[mkinzler]

Delphi-Quellcode:

with Canvas do

[Whistler]

Danke!
Funktioniert.