Изменение AlphaBlend при наведении мыши

[Dj_SheLL]

Что я хочу получить.Есть форма,на ней календарь.Значение для формы

AlphaBlendValue:=216;

При наведении на форму или календарь,должно меняться на

AlphaBlendValue:=255;

Кидаю в обработчик

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Form1.AlphaBlendValue:=255;
end;

И тоже самое в OnMouseMove для календаря для прочности.
Вот при наведении всё работает правильно.Убираю мышь-эффект остаётся,хотя должен приобрести обратный по задумке.
Пробовал уменьшать значение в

procedure TForm1.sMonthCalendar1MouseLeave(Sender: TObject);

Не помогает,как было так и остаётся...
Что посоветуете?Поиск оказался "не в помощь".

[spamer]

Обработчик для таймера :

procedure TForm1.Timer1Timer(Sender: TObject);
Var
  FormPos: TRect;
  CursorPos: TPoint;
Begin
  GetCursorPos(CursorPos );
  FormPos:=Rect(Form1.Left,Form1.Top,Form1.Left + Form1.Width,Form1.Top + Form1.Height);
  If PtInRect(FormPos, CursorPos) Then
    Begin
      AlphaBlendValue := 216;
    End
  Else
    Begin
      AlphaBlendValue := 255;
    End;
end;

Интервал таймера где-то в пределах от 5 до 10.

з.ы.

Поиск оказался "не в помощь"

Плохо ищем...ой как плохо...

[Terran]

И тоже самое в OnMouseMove для календаря для прочности

Это лишнее.
Попробуйте такой вариант:

...
Private
    { Private declarations }
  Procedure CMMouseEnter(Var Msg:TMessage); Message CM_MOUSEENTER;
  Procedure CMMouseLeave(Var Msg: TMessage); Message CM_MOUSELEAVE;
...
Procedure TForm1.CMMouseEnter(Var Msg:TMessage);
Begin
Inherited;
Form1.AlphaBlendValue:=255;
End;
Procedure TForm1.CMMouseLeave(Var Msg: TMessage);
Begin
Inherited;
Form1.AlphaBlendValue:=216;
End;

Ловим системные сообщения {CM_MOUSEENTER CM_MOUSELEAVE}

[spamer]

Terran, кстати, я вот как раз и хотел предложить ТС такой вариант решения, как ты написал, но почему-то у меня он работает через раз, из-за этого и не стал писать. Собственно хотел спросить, почему у меня он может не всегда срабатывать? т.е. иногда при наведении или убирании курсора - результат нулевой.

[Terran]

У меня он хорошо работает когда через заголовок программы проходит курсор, а так тоже через раз... Причину почему так получается точно не знаю.
P.S. С таймером надёжней.

[x128]

как вариант:

var
  AValue, AStep: integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AValue:=216;
  AlphaBlendValue:=AValue;
end;

procedure TForm1.FormMouseEnter(Sender: TObject);
begin
  AStep:=2;
  Timer1.Enabled:=true;
end;

procedure TForm1.FormMouseLeave(Sender: TObject);
begin
  AStep:=-2;
  Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if InRange(AValue,216,255) then AValue:=EnsureRange(AValue+AStep,216,255) else Timer1.Enabled:=false;
  AlphaBlendValue:=AValue;
end;

AStep можно быть 1;-1 и скоростью управлять свойством Interval у таймера

[Dj_SheLL]

Спасибо большое за столько вариантов!