Form MouseEnter/Leave problem

[DelTurbo]

Ich habe es nun mit einem Timer gelöst. Klappt einwandfrei.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
   P: TPoint;
 begin
   GetCursorPos(P);
   if (P.X>Form1.Left) AND (P.X<Form1.Left+Form1.Width) AND (P.Y>Form1.Top) AND (P.Y<Form1.Top+Form1.Height) then begin
    Form1.AlphaBlendValue:=255;
   end else begin
    Form1.AlphaBlendValue:=100;
   end;

end;