Código Delphi [-] ... begin if ColorDialog1.Execute then Some_TControl.Color := ColorDialog1.Color; ...
... begin if ColorDialog1.Execute then Some_TControl.Color := ColorDialog1.Color; ...