Скачать: CL | DM;

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

← →
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

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

---

← →
Германн ©   (2007-01-13 02:07) [7]

> MsGuns ©   (13.01.07 01:57) [6]

"Буквоед" :)))

---

← →
MsGuns ©   (2007-01-13 02:23) [8]

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

---

← →
Германн ©   (2007-01-13 02:34) [9]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c