Подскажите что я делаю неправильно:

← →
CaLL|ok (2007-01-12 16:15) [0]

procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked=true then begin Label1.Color:=clRed; Label2.Color:=clRed; Label3.Color:=clRed; end else Label1.Color:=clBtnFace; Label2.Color:=clBtnFace; Label3.Color:=clBtnFace; end;Я пытаюсь сделать чтобы при нажатии в CheckBox - все три Label становильсь красного цвета, в противном
случае - обычного цвета

← →
Сергей М. © (2007-01-12 16:17) [1]

А что собственно ты делаешь неправильно ?
В чем проблема-то ?

← →
Ega23 © (2007-01-12 16:17) [2]

if CheckBox1.Checked=true then begin Label1.Color:=clRed; Label2.Color:=clRed; Label3.Color:=clRed; end else begin Label1.Color:=clBtnFace; Label2.Color:=clBtnFace; Label3.Color:=clBtnFace; end; end

← →
CaLL|ok (2007-01-12 16:36) [3]

> В чем проблема-то ?

Проблема заключалась в том что красным цветом заливались не три лейбла, а только один первый.

> Ega23 © (12.01.07 16:17) [2]

Спасибо.Исправил

← →
Сергей М. © (2007-01-12 16:41) [4]

> CaLL|ok (12.01.07 16:36) [3]

Проблема не в этом.

Проблема в тебе - либо ты не знаешь Паскаль либо не умеешь мыслить логически.

← →
Anatoly Podgoretsky © (2007-01-12 16:54) [5]

> Сергей М. (12.01.2007 16:41:04) [4]

Вероятнее оба случая.

← →
MsGuns © (2007-01-13 01:57) [6]

>if CheckBox1.Checked=true

Выделенное - лишнее

Если бы это было буквоедством ;(
Человек просто НЕ ПОНИМАЕТ КАК ОНО РАБОТАЕТ

> MsGuns © (13.01.07 02:23) [8]
>
> Если бы это было буквоедством ;(
> Человек просто НЕ ПОНИМАЕТ КАК ОНО РАБОТАЕТ
>

"Человек" уже понял свою ошибку! А ты через 9 с хвостом часов постишь "мелкую поправку" :(
Так хоть бы "добавил" :)

Подскажите что я делаю неправильно: Найти похожие ветки