Я новичек, такой вопрос: Необходимо, чтобы при установке галочки в 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;
Admin: Пользуемся тегами!
Программа ругается, не удается скомпилировать. Поправьте код, подалуйста.