ボタンを押下状態で止めるには？

解決

なべ  2004-10-01 14:39:14  No: 11238  IP: 192.*.*.*

TButtonで、クリック時に凹状態で止めたいのですが、
方法ありますか？(再クリックで凸状態に戻る)
もしくは、他のコンポーネントで似たようなことが
できる場合、教えて下さい。
開発環境はDelphi7です

編集 削除
LupinⅢ  URL  2004-10-01 14:48:42  No: 11239  IP: 192.*.*.*

TSpeedButtonにDownプロパティがあります。
これだと出来ますよ。

編集 削除
Fusa  2004-10-02 11:25:05  No: 11240  IP: 192.*.*.*

CheckBoxをボタンに変えてしまうこんな方法もありますよ。

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(CheckBox1.Handle, GWL_STYLE,
    GetWindowLong(CheckBox1.Handle, GWL_STYLE) or BS_PUSHLIKE);
end;

編集 削除
なべ  2004-10-06 14:11:27  No: 11241  IP: 192.*.*.*

LupinⅢさん、Fusaさんありがとう御座いました。
TSpeedButtonで実現できました。

編集 削除