Форум "Delphi"

Паскаль, Делфи

#0 ID © 21.11.06 17:37:40 - 22.11.06 12:48:32

кнопка типа CheckBox

Стыдно спрашивать, но не нешел в свойствах, как делать TCheckBox в виде кнопки. Подскажите пожалуйста.

#1 Go © 21.11.06 17:40:26

TSpeedButton свойство Down

#2 clickmaker © 22.11.06 08:41:29

type
  TPushlikeCheckBox = class(TCheckBox)
  protected
   procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TPushlikeCheckBox.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or BS_PUSHLIKE;
end;

Написать ответ