Den Status ( Werte für Auswertung oder absolute Farbe) z.B. in .Tag ablegen und dann im Paint auswerten
In Klick-Event des Buttons:
Delphi-Quellcode:
Panel1.Tag := TAlphaColor.Blue;
Panel1.Repaint;
Im Paint:
Delphi-Quellcode:
if Sender.Tag <> 0 then
begin
canvas.BeginScene;
canvas.Fill.Kind := TBrushKind.bkSolid;
Canvas.Clearrect (Arect, (Sender as TComponent).Tag);
canvas.EndScene;
end;