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

解決

なべ 2004-10-01 23:39:14 No: 11238

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

LupinⅢ URL 2004-10-01 23:48:42 No: 11239

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

Fusa 2004-10-02 20:25:05 No: 11240

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

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

なべ 2004-10-06 23:11:27 No: 11241

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