| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

CaLL|ok ©   (2007-01-12 16:15:00) 

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-13 02:34:00) [1]

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

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

---

MsGuns   (2007-01-13 02:23:00) [2]

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

---

Германн   (2007-01-13 02:07:00) [3]

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

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

---

MsGuns   (2007-01-13 01:57:00) [4]

>if CheckBox1.Checked =true

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

---

Anatoly Podgoretsky   (2007-01-12 16:54:00) [5]

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

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

---

Сергей М.   (2007-01-12 16:41:00) [6]

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


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

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

---

CaLL|ok   (2007-01-12 16:36:00) [7]

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

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

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

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

---

Сергей М.   (2007-01-12 16:17:00) [8]

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

---

Ega23   (2007-01-12 16:17:00) [9]

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

---

Наверх