Viele OnMouseMove Proceduren | elegantere Lösung

[daniel-h]

ich habe jetzt dies dort stehen:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var
  point: TPoint;
begin
  GetCursorPos(point);
  if PtInRect(BoundsRect{oder ClientRect, je nachdem},Mouse.CursorPos) then

    form1.Width := 200;
    form1.AlphaBlendValue := 255

  else

    form1.AlphaBlendValue := 1;
    form1.Width := 1;
end;

jetzt zickt der compiler :

http://photoservice.ph.funpic.de/bugz.JPG

mfg