1、先设置好窗体透明
2、设置好透明颜色设置
3、设置好变化触发事件就可以了
void __fastcall TForm1::Label27MouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
Form1->AlphaBlend=false;
Panel7->Color=clWhite;
//Panel7->BorderStyle=bsSingle;
this->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label27MouseLeave(TObject *Sender)
{
Form1->AlphaBlend=true;
Panel7->Color=clBtnFace;
//Panel7->BorderStyle=bsNone;
this->Refresh();
}