unit unitex05;

interface

uses
  SysUtils, Types, Classes, QGraphics,
  QForms, QDialogs, QStdCtrls, QControls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
  private
    { Déclarations private }
  public
    { Déclarations public }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if button1.caption='Changer de couleur'then
 begin
  RadioButton1.enabled:=true;
  RadioButton2.enabled:=true;
  RadioButton3.enabled:=true;
  RadioButton4.enabled:=true;
  RadioButton5.enabled:=true;
  RadioButton6.enabled:=true;
  button1.caption:='Interdire changement'
 end
 else
 begin
  RadioButton1.enabled:=false;
  RadioButton2.enabled:=false;
  RadioButton3.enabled:=false;
  RadioButton4.enabled:=false;
  RadioButton5.enabled:=false;
  RadioButton6.enabled:=false;
  button1.caption:='Changer de couleur'
 end
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
 edit1.color:=clyellow
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
 edit1.color:=clred
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
 edit1.color:=claqua
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
 edit1.color:=cllime
end;

procedure TForm1.RadioButton5Click(Sender: TObject);
begin
 edit1.color:=clblack
end;

procedure TForm1.RadioButton6Click(Sender: TObject);
begin
 edit1.color:=clwhite
end;

end.