vielleicht noch sowas ... dann muß nicht immer selber in gecastet und das Canvas gesucht werden
Delphi-Quellcode:
type TControlDrawEvent = procedure(Sender: TObject; Canvas: TCanvas) of object;
property OnDraw : TControlDrawEvent
TCanvas ist wirklich gemeint, TControlCanvas ist ja davon abgeleitet und die Funktionen dieses Vorfahren reichen ja an dieser Stelle vollkommen aus.