TColorDialog.Execute Method

Displays the color-selection dialog.

Pascal

function Execute(ParentWnd: HWND): Boolean; override;

C++

virtual __fastcall Boolean Execute(HWND ParentWnd);

Description

Execute opens the color-selection dialog, returning true when the user selects a color and clicks OK, or false when the user cancels.

Copy Code

if ColorDialog1.Execute then
  Shape1.Brush.Color := ColorDialog1.Color
else
  Shape1.Brush.Color := clGray;

Copy Code

if (ColorDialog1->Execute())
  Shape1->Brush->Color = ColorDialog1->Color;
else
  Shape1->Brush->Color = clGray;

C++ Examples:

Copy Code

/*
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 the
user 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.
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (ColorDialog1->Execute())
    Shape1->Brush->Color = ColorDialog1->Color;
}

Delphi Examples:

Copy Code

{
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 the
user 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.
}
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    Shape1.Brush.Color := ColorDialog1.Color;
end;