Rahmen berührt ?

[-=cats=-]

Hi

Gibt es eine Möglichkeit zu überprüfen,
ob der Benutzer mit dem Mauszeiger den rechten Rand
der Form berührt hat ?

Ich habe es mal so probiert:

Delphi-Quellcode:

 procedure TForm1.FormCreate(Sender: TObject);
begin
 if
   (Mouse.CursorPos.X = Self.Width)
 then
   JvNavigationPane1.Visible := true;
end;

Wenn ich es mit Screen.Width probiere, geht es auch nicht
Liegt es vielleicht daran, das ich das in eine Endlosschleife
schreiben müsste ? Damit er das ständig überprüft ?
Aber das wäre ja blöd. Ich kann ja nicht die ganze Zeit so eine
Schleife laufen lassen ...

Gruß,
-=cats=-