На главную

Ограничить область перемещения мыши

Ограничить область перемещения мыши

ОГЛАВЛЕНИЕ    HOME  MAIL



В тех случаях, когда нужно, чтобы курсор мыши не выходил за определенную область, удобнее всего использовать ClipCursor. Эта программа не позволяет вывести мышь за границы окна, когда она нажата.

var
  r: TRect;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  r1: TRect;
begin
  GetClipCursor(r);
  r1 := Form1.ClientRect;
  r1.TopLeft := Form1.ClientToScreen(r1.TopLeft);
  r1.BottomRight := Form1.ClientToScreen(r1.BottomRight);
  ClipCursor(@r1);
end;

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

главная страницазадать вопрос
email: delphi4all@narod.ru
Hosted by uCoz