ON OFF ボタンコントロールにするには?

解決

---

チェックボックスコントロールのような、ONとOFFが出来る、外見がボタンコントロールのようなコントロールにするには、どのコントロールを使い、どのプロパティを変更すればよいのでしょうか。ご教授お願いします。

(コントロールのリスト内には、探したのですが、見当たりませんでした。探しとばしていたら、申し訳ないです。また、チェックボックスコントロールのプロパティを見てみたのですが、どうしても、ON OFF ボタンには出来ませんでした。)

編集    削除

---

過去ログを参考にしてください。
https://www.petitmonte.com/bbs/answers?question_id=849

編集    削除

---

これでどうでしょう？

FormのCreateイベントに下記のコードを追加してください

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

編集    削除

---

スピードボタンを使えばコーディング無しで楽だと思います。
GroupIndex
AllowAllUp
Down
の各プロパティの組み合わせで行けるかと。

編集    削除

---

なるほど、その手がありましたか。
違いは、フォーカスの有無だけですかね。
フォーカスがいらなければ、えびさんの方法が簡単です。

編集    削除

---

たくさんのお返事、どうもありがとうございました。SpeedButtonのコントロールの使い方もなんとなく分かりました。おかげさまで、ON/OFFボタンが作成できました。たくさんのご教授に感謝します。

(ON/OFFボタンは、トグルボタンというんですね。初耳でした。)

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。