void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if(GetCapture == 0)
{
SetCapture(Form1->Handle);
};
if (PtInRect(Rect(Form1->Left,Form1->Top,
Form1->Left + Form1->Width,
Form1->Top + Form1->Height),
ClientToScreen(Point(X, Y))))
{
Form1->AlphaBlendValue = 185;
}
else
{
Form1->AlphaBlendValue = 100;
};
}
эта функцмя должна при наведении курсора на окно делать его более ярким , при отведении окно должно стать опять полупрозрачным.Ярким окно становится, а прозрачным нет.