[arach]

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

Программа ругается, не удается скомпилировать. Поправьте код, подалуйста.