Travar mouse
13/12/2003
0
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.
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.
Teoprog
Curtir tópico
+ 0
Responder
Posts
13/12/2003
Cebikyn
Deve funcionar:
Para liberar o movimento do mouse:
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
Clique aqui para fazer login e interagir na Comunidade :)