|
#1
|
|||
|
|||
CheckBox
Я новичек, такой вопрос: Необходимо, чтобы при установке галочки в CheckBox, значение Label менялось (сделал), а при снятии опять менялось на другое. Вот какой у меня код (кривой, не ругайтесь):
Код:
procedure TForm1.CheckBox1Click(Sender: TObject); begin Label4.Caption:=('Вкл.'); Label4.Font.Color:=clGreen; if CheckBox1.Checked:=false then begin Label4.Caption:=('Выкл.'); Label4.Font.Color:=clRed; end; Программа ругается, не удается скомпилировать. Поправьте код, подалуйста. |
#2
|
|||
|
|||
Код:
procedure TForm1.CheckBox1Click(Sender: TObject); begin case CheckBox1.Checked of False: begin Label4.Caption:=('Выкл.'); Label4.Font.Color:=clRed; end; True: begin Label4.Caption:=('Вкл.'); Label4.Font.Color:=clGreen; end; end; end; пользуйся |
#3
|
||||
|
||||
Код:
if CheckBox1.Checked:=false then Код:
Label4.Caption:=('Вкл.'); Код:
Label4.Caption:='Вкл.'; |
#4
|
|||
|
|||
Спасибо большое!
|
#5
|
|||
|
|||
А самоучителями и учителями я не пользуюсь)
|
#6
|
|||
|
|||
Цитата:
Код:
Label4.Caption:=('Вкл.'); Код:
Label4.Caption:='Вкл.'; |
#7
|
||||
|
||||
Rjkzy
Возможно, не проверял) Просто ниразу не встречал людей пишуших так, приобщаемся к нормальному стилю. |