Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 517
Благодарности: 314

Профиль | Отправить PM | Цитировать


audiofeel, за состояние кнопок отвечает процедура
Код: Выделить весь код
procedure ButtonSetEnabled(var Button: TCusBtn; hEnabled: Boolean);
Значит включение\отключение выглядит так:
ButtonSetEnabled( MyBtn, True ) - включена, ButtonSetEnabled( MyBtn, False ) - выключена
Обработчик кликов чекбокса будет выглядеть так:
Код: Выделить весь код
procedure NoIconsCheckClick(Sender: TObject);
begin
  case TCheckBox( Sender ).Checked of
      True: ButtonSetEnabled( MyBtn, False );
      False: ButtonSetEnabled( MyBtn, True );
  end;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 22:24, 15-10-2014 | #1837