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

解決

ポント 2003-09-16 21:00:43 No: 4841

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

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

にしの 2003-09-16 21:07:44 No: 4842

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

LupinⅢ URL 2003-09-16 21:42:28 No: 4843

これでどうでしょう？

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

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

えび 2003-09-17 00:20:55 No: 4844

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

にしの 2003-09-17 01:33:43 No: 4845

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

ポント 2003-09-17 20:47:43 No: 4846

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

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