Buscar por:

Fazendo o cursor do mouse não sair do form

Código

Sou Samuel Bergman... E estou enviando outra dica para vocês!!!

Este é fácil...

Crie um novo projeto (Project1)... Coloque um novo botão (Button1) no form (Form1) e depois copie e cole o código abaixo no evento OnClick do botão (Button1).

procedure TForm1.Button1Click(Sender: TObject);

var

  R: TRect;

begin

  { Pega o retângulo da área cliente do form }

  R := GetClientRect;

  { Converte as coordenadas do form em coordenadas da tela }

  R.TopLeft := ClientToScreen(R.TopLeft);

  R.BottomRight := ClientToScreen(R.BottomRight);

  { Limita a região de movimentação do mouse }

  ClipCursor(@R);

  ShowMessage('Tente mover o mouse para fora da área cliente do Form');

  { Libera a movimentação }

  ClipCursor(nil);

end; 

Agora é só executar a aplicação e clicar no botão

verá que isso realmente vai acontecer... e clique OK para encerrar...

Samuel Bergman (13 anos)

Ipaba MG - 33 - 3327 - 1514