Also ich hab das so verstanden, als soll der Cursor nicht über und unter der Form sein können.
Falls ich mich irre:
Delphi-Quellcode:
// Einrichten
procedure TForm1.FormShow(Sender: TObject);
var R:TRect;
begin
r:=Bounds(0, Top+Height div 2, Screen.Width, 0);
ClipCursor(@r);
end;
// Spuk beenden
procedure TForm1.FormHide(Sender: TObject);
begin
ClipCursor(nil);
end;
Zitat von
Sunlight7:
Hello Heike
Deutsch sollte man können