Checkbox, который выглядит как кнопка

interface type TDBCheckBox = class(dbctrls.TDBCheckBox) protected procedure CreateParams(var Params: TCreateParams); override; end; implementation procedure TDBCheckBox.CreateParams(var Params: TCreateParams); begin inherited; Params.Style := Params.Style or BS_PUSHLIKE; end;

Leave a comment