|
||
解説: SpeedButton コンポーネントは、選択、非選択、使用不可などの状態が表現できるボタンです。 イメージを表示したり、AllowAllUp プロパティと GroupIndex プロパティを使って、グループ化させる機能もあります。 AllowAllUp を false、GroupIndex を同じ数値に設定して、ひとつのボタンをクリックでへこませた時、他のボタンは押されていない状態にする、などが良く使われます。 使用例: 以下の例では、SpeedButton をコードでへこませています。 配置するコンポーネントは SpeedButton と Button だけです。 アプリケーションの起動時に、OnCreate で SpeedButton1 の AllowAllUp プロパティを true に GroupIndex プロパティを 1 に設定しています。 Button1 の クリックで SpeedButton1 がへこむように Down プロパティを記述しておきます。 複数の SpeedButton を配置して、グループとして機能させてみてください。 //------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { // 普通のボタンのようにへこんだり戻ったりする SpeedButton1->AllowAllUp = true;//false だとへこんだままにできない SpeedButton1->GroupIndex = 1;//クリックでボタンがへこむ } //------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { // ボタンを押された状態にする SpeedButton1->Down = true; } //------------------------------------------------------------------- |