色つきボタンに見せる工夫

Buttonコンポーネントにはボタンの色を変えるプロパティが無いので、色を変えられて、 出っ張りを付けられるLabelコンポーネントを使って、Buttonと同じ動きを作ります。

作成手順

• Panelをフォームに貼り付け、PanelのBevelInnerプロパティーをbvRaised , BevelOuter プロパティをbvNone　にします。
• 続いて、イベントページのOnMouseDownの右側の欄をダブルクリックします。

  void __fastcall TForm1::Panel2MouseDown(TObject *Sender,
        TMouseButton Button, TShiftState Shift, int X, int Y)
  {
  }
  

  がエディタに表示されるので、{ と } の間に　Panel2->BevelOuter = bvLowered; と書きます。
  このPanel2の２は作成方法によって番号が変わります。
• OnMouseUp のイベントも同様にして、 Panel2->BevelOuter = bvRaised; を書きます。
• 以上でパネルを押すとへっこみます。
• さらにPanelのColorプロパティで色を指定すれば完成です。