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.


Teoprog

Teoprog

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar