Управление курсором

[russian-stalker]

Через WinApi можно:

type
  TForm1 = class(TForm)
    procedure movemsg(var Message: TMessage);
    message WM_MOUSEMOVE;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mx,my:integer;

implementation

{$R *.dfm}

procedure Tform1.movemsg(var Message: TMessage);
begin
setcursorpos(mx,my);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
mx:=mouse.CursorPos.X;
my:=mouse.CursorPos.y;
end;

end.

[Arigato]

Сообщение от russian-stalker

Через WinApi можно:

Если курсор за пределами окна приложения, то ему ничего не мешает двигаться.

[russian-stalker]

Тогда дописать так и не беды:

procedure TForm1.FormCreate(Sender: TObject);
begin
setcursorpos(left+width div 2,top+height div 2);
mx:=mouse.CursorPos.X;
my:=mouse.CursorPos.y;
end;

[BuT@JL]

Уже теплей, плохо что курсор за форму выходит

[raxp]

шоб не выходил ставьте clipcursor

[BuT@JL]

raxp напиши не большой примерчик пожалуста

[Arigato]

Сообщение от BuT@JL

raxp напиши не большой примерчик пожалуста

А в хэлп заглянуть вы не способны?

[raxp]

ну во-первых http://www.programmersforum.ru/showp...68&postcount=8

во-вторых

var r: trect;
begin
r.Left   := Left;
r.Top    := Top;
r.Right  := Left + Width;
r.Bottom := Top + Height;
 ClipCursor(@r);

[russian-stalker]

А можно тупо проверку добавить ещё одну

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin


case Key of
  37: if mx-left>6 then mx:=mx-3;
  38: if my-top>32 then my:=my-3;
  39: if mx-left<width-6 then mx:=mx+3;
  40: if my-top<height-6 then my:=my+3;
end;

  SetCursorPos(mx,my);

end;

[BuT@JL]

всё получилось ) всем спасибо за помощь