Como faço pra evitar que o User clique fora do LookUp aberto
alguém sabe como faço pra evitar que um User clique fora de um LookUp aberto?
tipo assim, se ele abri vai ter que escolher algum item, caso contrário ele não pertite que feche.
tem como?
Obrigado.
tipo assim, se ele abri vai ter que escolher algum item, caso contrário ele não pertite que feche.
tem como?
Obrigado.
Alex_
Curtidas 0
Respostas
Marcelo.c
09/05/2003
Acho que este código pode ser útil:
238 - Limitando a região de movimentação do mouse
Inclua na seção uses: Windows
Você pode colocar esta instrução no evento Onshow do Form, e liberar apenas depois que for escolida uma opção (Evento Onclick, por exemplo)
procedure TForm1.Show(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;
238 - Limitando a região de movimentação do mouse
Inclua na seção uses: Windows
Você pode colocar esta instrução no evento Onshow do Form, e liberar apenas depois que for escolida uma opção (Evento Onclick, por exemplo)
procedure TForm1.Show(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;
GOSTEI 0