Задача по delphi: изменять цвет формы и чтобы при снятии флажка с checkbox1 цвет формы был по умолчанию

[Luchfan12]

unit U3_4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    procedure CheckBox1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1DblClick(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
RadioButton1.Enabled := True;
RadioButton2.Enabled := True;
RadioButton3.Enabled := True;
RadioButton4.Enabled := True;

if CheckBox1.Checked = False then
RadioButton1.Enabled := False;
if CheckBox1.Checked = False then
RadioButton2.Enabled := False;
if CheckBox1.Checked = False then
RadioButton3.Enabled := False;
if CheckBox1.Checked = False then
RadioButton4.Enabled := False;
end;




procedure TForm1.RadioButton1DblClick(Sender: TObject);
begin

  if CheckBox1.Checked = True then
   Form1.Color := clBtnFace;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin

  if CheckBox1.Checked = True then
  Form1.Color := clRed;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin

if CheckBox1.Checked = True then
   Form1.Color := clYellow;
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin

if CheckBox1.Checked = True then
   Form1.Color := clGreen;
end;

end.

ВОПРОС: Как сделать так, чтобы только при значении checked = true цвет формы менялся. То есть мне нужно сделать так, чтобы при снятии флажка с checkbox1 цвет формы был по умолчанию




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

так?

  if CheckBox1.Checked then
     Form1.Color := НужныйЦвет
  else
     Form1.Color :=  clBtnFace;  {цвет формы по умолчанию}
end;

[Luchfan12]

Не работает. При снятии галочки цвет формы не становится по умолчанию

[Serge_Bliznykov]

Сообщение от Luchfan12

Не работает. При снятии галочки цвет формы не становится по умолчанию

лень проект создавать с нуля!
Выложите архив с проектом (минимально достаточно архив с файлами U3_4.pas, U3_4.dfm)
посмотрим, что там не работает...


и можете с простым примером поиграться:
Project1source.rar
Project1exe.rar

[evg_m]

если все эти занимаются одним и тем же (меняют цвет) то для них логично написать общую процедуру
это может общий обработчик (см далее) либо одна процедура которя БУДЕТ вызываться изо всех заинтересованных(!) обработчиков.

1. назначаем всем заинтересованным (Checkbox1, RadioButton1, ..., RadioButtonN) один обработчик события OnClick
1.1. выделяем все вышеперечисленные
1.1.1. открываем форму (F12 показать/скрыть форму)
1.1.2. с зажатым Ctrl кликаем по перечисленным (check..., radio...)
1.2. назначаем всем один обработчик
1.2.1. переходим к ObjectInspector (F11)
1.2.2. находим на вкладке Events событие OnClick
1.2.3. задаем процедуру обработки события
1.2.3.1. выбираем из списка или создаем заново (DblClick)
1.3. редактируем данную процедуру

В ней мы проверяем ВСЕ перечисленные объекты и принимаем решение о цвете.

if checkbox1.checked then form1.color:=clBtnFace
else if radiobutton1.checked then form1.color:=clRed
else if ...
else form1.color:=clyellow; // на пользователя никогда нельзя полагаться вдруг он не отметит ничего

Вычислять цвет надо на основе ВСЕХ заинтересованных (!) и желательно это делать в одном месте программы!
один общий обработчик/ одна процедура

или функция form1.color:=CalcCheckedColor
вычисляем в одном месте (в функции СalccheckedColor !)
используем в о всех нужных обработчиках (т.е. там где возможно изменение наших отметок)

[Luchfan12]

Можете посмотреть в чем проблема?

[Serge_Bliznykov]

Вы на RadioButton1 (значение "по умолчанию") назначили ДВОЙНОЙ клик

[Luchfan12]

Понял!Спасибо большое!

[Serge_Bliznykov]

я бы ваш проект немножко изменил!


например, так: Pr3_4.rar
суть изменения:

unit U3_4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    procedure CheckBox1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
    FormColor : TColor;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  RadioButton1.Enabled := CheckBox1.Checked;
  RadioButton2.Enabled := CheckBox1.Checked;
  RadioButton3.Enabled := CheckBox1.Checked;
  RadioButton4.Enabled := CheckBox1.Checked;
  if CheckBox1.Checked then Form1.Color := FormColor
  else Form1.Color := clBtnFace;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FormColor := clBtnFace;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
   FormColor := clBtnFace;
   Form1.Color :=  FormColor;
end;


procedure TForm1.RadioButton2Click(Sender: TObject);
begin
   FormColor := clRed;
   Form1.Color :=  FormColor;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
  FormColor := clYellow;
  Form1.Color :=  FormColor;
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
  FormColor := clGreen;
  Form1.Color :=  FormColor;
end;


end.

p.s. а можно и в один обработчик все RadioButtonClick свести, как выше предлагалось.. Это обычно и проще и надежнее и удобнее!