Prendedr mouse
Gostaria que o mouse não saísse do form da aplicação, o problema é... quando inicio a aplicação se o mouse não estiver lá dentro como faço para prendê-lo e não deixar sair?
Nigro
Curtidas 0
Respostas
Nigro
05/11/2003
Acabei achando... valeu... e para o pessoal que tem a mesma dúvida aqui vai...
Limitando a região de movimentação do mouse
Inclua na seção uses: Windows
Coloque um botão no form e altera o evento OnClick dele conforme abaixo:
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;
Nigro
Limitando a região de movimentação do mouse
Inclua na seção uses: Windows
Coloque um botão no form e altera o evento OnClick dele conforme abaixo:
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;
Nigro
GOSTEI 0