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 Reply

Your email address will not be published.

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>