Zitat von
Sunlight7:
Hello Heike....
Das klappt ganz gut, vielen Dank, für Deine Mühe.
Ich habe das noch auf eine Form beschr.
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var R:TRect;
begin
r:=Bounds(Form1.Left, 400, Form1.Width, 4);
ClipCursor(@r);
end;
Auch Dank an alle Anderen.
Gruß
Heike