Ermitteln ob die Maus auf der Form ist?

[jaenicke]

TApplicationEvents auf das Formular --> OnMessage:

Delphi-Quellcode:

procedure TForm257.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  ClientRectAbs: TRect;
begin
  if Msg.message = WM_MOUSELEAVE then
  begin
    ClientRectAbs.TopLeft := ClientToScreen(ClientRect.TopLeft);
    ClientRectAbs.BottomRight := ClientToScreen(ClientRect.BottomRight);
    InflateRect(ClientRectAbs, -2, -2);
    if not PtInRect(ClientRectAbs, Mouse.CursorPos) then
      Caption := Caption + 'AA';
  end;
end;

Zum Testen schreibt das einfach etwas in die Caption.