Viele OnMouseMove Proceduren | elegantere Lösung

[DeddyH]

Den Punkt hast Du ja jetzt (das sollte btw. Mouse.CursorPos entsprechen), nun könntest Du mit PtInRect prüfen, ob sich dieser innerhalb Deines Formulars befindet. Beispiel:

Delphi-Quellcode:

procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
  if PtInRect(BoundsRect{oder ClientRect, je nachdem},Mouse.CursorPos) then
    Color := clRed
  else
    Color := clBlue;
end;