Como faço pra evitar que o User clique fora do LookUp aberto

Delphi

09/05/2003

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.


Alex_

Alex_

Curtidas 0

Respostas

Marcelo.c

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;


GOSTEI 0
POSTAR