如何设置button按下时候，处于按下状态并且颜色改变

[dengzhixing]

如何设置button按下时候，处于按下状态并且颜色改变？

[hnzlk]

用TSpeedButon吧。

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
      TSpeedButton *Btn1=(TSpeedButton *)Sender;
      if(Btn1->Tag==0)
      {
         Btn1->Down=true;
         Btn1->Tag=1;
      }
      else
      {
         Btn1->Down=false;
         Btn1->Tag=0;
      }
}

并设置AllowAllup属性=true,groupindex=1

[fairchild811]

SpeedButton可以直接设置状Down,同时会有相应的颜色表示