Travar mouse

Delphi

13/12/2003

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.


Teoprog

Teoprog

Curtidas 0

Respostas

Cebikyn

Cebikyn

13/12/2003

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);



GOSTEI 0
Teoprog

Teoprog

13/12/2003

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


GOSTEI 0
POSTAR