Ermitteln ob die Maus auf der Form ist?

[DeddyH]

Dann weiß ich auch nicht weiter, bei mir geht es.

[himitsu]

Zitat:

Verlassen des Formulars wäre wichtig!

Was bedeutet "verlassen" für dich?

TForm.OnDeactivate - wenn die Form den Eingabefokus verliert (an eine andere Form der eigenen Anwendung)

TApplication.OnDeactivate - wenn die Form, bzw. die ganze Anwendung den Eingabefokus verliert (an eine andere Anwendung)


Manchmal darf man nicht nur auf die Maus hören, sondern nur auf den Eingabefokus.
Wenn mir die Maus, bei der Eingabe, im Weg ist, dann verschiebe ich sie und passe dabei nicht auf, ob sie noch über der Form bleibt.

[DeddyH]

Ich verstehe nicht ganz, was OnDeactivate mit OnMouseLeave zu tun haben soll

[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.