SpeedButtonのDownでOnＯｆｆをするには？ (ID:26177)

名前

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

本文 みなさんありがとうございます。 ｉｇｙさんの、AllowAllUpをTRUEにして、GroupIndexを１にするだけで、・・に対しては 起動時何もしない状態ではボタンはあがったままです。 クリックしても下がったままになりません。 ｄｅｌ５さんのご回答については、これは過去ログで一応見ましたが SpeedButtonを選んだ理由にボタンにImageとテキストを表示したいためで諦めました。 それから、起動時はCheckBoxの形をしているのですが最初からボタンの形にするにはどうしたらいいのでしょうか？。 procedure TForm1.CheckBox1Click(Sender: TObject); begin SetWindowLong(CheckBox1.Handle, GWL_STYLE, GetWindowLong(CheckBox1.Handle, GWL_STYLE) or BS_PUSHLIKE); end; よろしくお願いいたします。