Canvas + OnDraw-Event für Buttons

[himitsu]

Es würde zwar auch nur im Event reichen, aber du kannst auch überall gleich TCanvas nehmen, da du zusätzliche Funktionalitäten von TControlCanvas ja eh nur an einer Stelle nutzt.

und dann nur noch

Code:

FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := [color=silver]TControl([/color]Self[color=silver])[/color];

Der User braucht ja nur die Funktionen von TCanvas
und viele kennen TControlCanvas nicht, da ist es mit TCanvas auch verständlicher.