TControlColor (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

The following code changes the color of a shape control using the Color dialog box. The example displays the Color dialog box when the Button1 button is clicked, allowing you to select a color with the dialog box. When a color value is selected with the dialog box, it is assigned to the shape control.

Code

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    Shape1.Brush.Color := ColorDialog1.Color;
end;

Uses