Новый CheckBox |
![]() |
![]() |
Статьи |
Модуль ниже определяет новый компонент, основанный на TCheckBox, этот новый компонент ведет себя подобно нормальному CheckBox, но напоминает PushButton:
Как Вы можете увидеть, все, что мы должны сделать - отменить защищенный метод CreateParams и добавить новый флажок: BS_PUSHLIKE; BS_ STANDS для "стиля кнопки". Метод Createparams - место, где мы должны установить любой заказной параметр для класса управления до его создания. Это - инкапсуляция VCL пакета WinAPI. Все! По материалам http://delphi.3000.com |