Travar mouse
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
Curtidas 0
Respostas
Cebikyn
13/12/2003
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);
GOSTEI 0
Teoprog
13/12/2003
Valeu cara, testei e deu certo, você me ajudou muito, falou e até mais.
GOSTEI 0