"fængsle musen" ?? eller noget...

Send lige en mail til Jens@Borrisholt.com så skal Jeg lave dig et eksempel ...

Jens B

åk :) mail er sendt

procedure RestrictCursorToArea(const CursorClipArea  : TRect);
begin
  Windows.ClipCursor(@CursorClipArea);
end;

procedure RemoveCursorRestrictions;
begin
  Windows.ClipCursor(nil);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
var
  aRect : TRect;
begin
  if Button = mbLeft then
  begin

    aRect.TopLeft :=  ClientToScreen ( ClientRect.TopLeft);
    aRect.BottomRight := ClientToScreen ( ClientRect.BottomRight);
    RestrictCursorToArea(aRect);
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  RemoveCursorRestrictions;
end;

det virker bare!! :) jeg takker :)

jeg poster det sq lige så andre kan få lidt gavn af det :)



procedure RestrictCursorToArea(const CursorClipArea  : TRect);
begin
  Windows.ClipCursor(@CursorClipArea);
end;

procedure RemoveCursorRestrictions;
begin
  Windows.ClipCursor(nil);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
var
  aRect : TRect;
begin
  if Button = mbLeft then
  begin

    aRect.TopLeft :=  ClientToScreen ( ClientRect.TopLeft);
    aRect.BottomRight := ClientToScreen ( ClientRect.BottomRight);
    RestrictCursorToArea(aRect);
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  RemoveCursorRestrictions;
end;

hmmm jeg så sq ik lige du havde postet det :)