Консультация № 175514
22.12.2009, 11:31
0.00 руб.
0 2 1
Уважаемые эксперты,прошу Вас в помощи решения моей задачи
Используя независимый переключатель, окрасить форму либо в красный, либо в синий цвет. Подсчитать количество переключений.

Обсуждение

Неизвестный
22.12.2009, 11:40
общий
procedure TForm.CheckBoxClick( Sender: TObject);
begin
CheckBox.Tag := CheckBox.Tag+1;
if (CheckBox.Tag mod 2)=0 then Color:=clRed else Color:=clBlue;
end;

Неизвестный
22.12.2009, 21:34
общий
это ответ
Здравствуйте, Масленникова Валерия.

Процедуры реализующие смену цвета формы, подсчёт количества переключений с последующим выводом на компонент:
Код:
//Собитые клика по переключателю CheckBox2(красный)
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Form1.Color := clRed; //Устанавливаем красный цвет формы
//Увеличиваем на единицу значения количества переключений
Form1.CheckBox1.Tag := Form1.CheckBox1.Tag + 1;
//Выводим это значение на компонент Label1 как строку
Label1.Caption := IntToStr(Form1.CheckBox1.Tag);
end;

//Собитые клика по переключателю CheckBox2(синий)
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
Form1.Color := clBlue; //Устанавливаем синий цвет формы
//Увеличиваем на единицу значения количества переключений
Form1.CheckBox1.Tag := Form1.CheckBox1.Tag + 1;
//Выводим это значение на компонент Label1 как строку
Label1.Caption := IntToStr(Form1.CheckBox1.Tag);
end;


Скачать весь проект (среда Delphi 7). Возникнут вопросы - задавайте в мини-форум. Удачи Вам
Форма ответа