Button.Down auch für normale TButtons?

[uligerhardt]

Du kannst eine Checkbox nehmen und sie wie einen normalen Button aussehen lassen.

• Quick and dirty:
  Delphi-Quellcode:

  procedure TForm2.FormCreate(Sender: TObject);
  var
    style: DWORD;
  begin
    style := GetWindowLong(CheckBox2.Handle, GWL_STYLE);
    SetWindowLong(CheckBox2.Handle, GWL_STYLE, style or BS_PUSHLIKE);
  end;

• Etwas sauberer: Leite eine Komponente von TCheckbox ab und jubele ihr das BS_PUSHLIKE im CreateParams unter.

HTH, Uli.