Активация CheckBox кодом

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Активация CheckBox кодом

Сообщение GrEFeRFeeD » 20.08.2018 00:37:45

Возможно я плохо искал, но не нашёл подобных вопросов.
Есть ли возможность каким-либо образом программно активировать, либо же деактивировать, CheckBox?
Например задача:
Есть Button. При нажатии на него CheckBox1 активируется либо деактивируется, если уже активирован.
GrEFeRFeeD
незнакомец
 
Сообщения: 6
Зарегистрирован: 01.08.2018 15:21:44

Re: Активация CheckBox кодом

Сообщение zoltanleo » 20.08.2018 01:04:12

Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckBox1.Checked:= not CheckBox1.Checked;

  if CheckBox1.Checked
    then Button1.Caption:= 'Deactivate checkbox'
    else Button1.Caption:= 'Activate checkbox';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckBox1.Checked:= False;
  Button1.Caption:= 'Activate checkbox';
end; 


Изображение
У вас нет необходимых прав для просмотра вложений в этом сообщении.
Аватара пользователя
zoltanleo
постоялец
 
Сообщения: 457
Зарегистрирован: 17.10.2013 10:55:01

Re: Активация CheckBox кодом

Сообщение GrEFeRFeeD » 20.08.2018 02:42:11

zoltanleo писал(а):
Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckBox1.Checked:= not CheckBox1.Checked;

  if CheckBox1.Checked
    then Button1.Caption:= 'Deactivate checkbox'
    else Button1.Caption:= 'Activate checkbox';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckBox1.Checked:= False;
  Button1.Caption:= 'Activate checkbox';
end; 


Изображение


Благодарю!
GrEFeRFeeD
незнакомец
 
Сообщения: 6
Зарегистрирован: 01.08.2018 15:21:44


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 28

Рейтинг@Mail.ru