Travar mouse

13/12/2003

1

Ola pessoal.

Eu queria saber como travo o mouse em cima de um panel, e que quando o cursor do mouse chegar nas bordas do panel simplesmente não sair, ficando então preso no panel.


Responder

Posts

13/12/2003

Cebikyn

Deve funcionar:

var
  R: TRect;
begin
  R := Rect(Form1.Left+Panel1.Left,
    Form1.Top+Panel1.Top,
    Form1.Left+Panel1.Left+Panel1.Width,
    Form1.Top+Panel1.Top+Panel1.Height);
  ClipCursor(@R);
end;


Para liberar o movimento do mouse:

ClipCursor(@nil);



Responder

13/12/2003

Teoprog

Valeu cara, testei e deu certo, você me ajudou muito, falou e até mais.


Responder