Maus auf einer Form einschränken!

[Sunlight7]

Hello Heike,

am besten ClipCursor verwenden;

Beispiel:

Delphi-Quellcode:

// Einrichten
procedure TForm1.FormShow(Sender: TObject);
   var R:TRect;
begin
   r:=Bounds(0, Top, Screen.Width, Height);
   ClipCursor(@r);
end;

// Spuk beenden
procedure TForm1.FormHide(Sender: TObject);
begin
   ClipCursor(nil);
end;