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

名前

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

本文 ｉｇｙさん、うまくいきました。 AllowAllUpをFALSEにしておいて、GroupIndexを０にしておいて、 procedure TForm1.SpeedButton1Click(Sender: TObject); begin if SpeedButton1.Down= false then begin SpeedButton1.GroupIndex:=1; SpeedButton1.AllowAllUp:=false; SpeedButton1.Down:=true; end else begin SpeedButton1.AllowAllUp:=true; SpeedButton1.GroupIndex:=0; SpeedButton1.Down:=false; end; end; でボタンのOnＯｆｆができました。 ありがとうございました。