Aguarda tecla para continuar...

Delphi

15/10/2004

tenho um formulario onde faço alguns calculos e apos os calculos efetuados eu tenho q fechar o formulario so q antes de sair quero mostrar os resultados para o usuario, e gostaria de aguarda confirmacao do usuario para continuar, que ele pressiona-se um <ENTER> tipo o ReadKey do pascal...

valeu i!!!


Dorivansousa

Dorivansousa

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

15/10/2004

Olá

Pode-se colocar no KeyPress um comando Exit;
Assim, quando ele clicar em alguma coisa o Form fechará

Até+


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

15/10/2004

vc pode tentar tb algo do tipo:

while GetKeyState(VK_RETURN) >= 0 do ; 
//Só o ";" mesmo, sem nenhum código



GOSTEI 0
Dorivansousa

Dorivansousa

15/10/2004

funciona assim: eu faço o calculo assim q o usuario confirma o valor de um edit com um enter, no fim do processo eu fecho o formulario so que eu quero pausar para esperar a tecla antes de fechar.


GOSTEI 0
Rômulo Barros

Rômulo Barros

15/10/2004

...
Public
   byPodeSair : Byte;
...
EventoOnKeyPressDoEdit
Begin
   If(Not(Key In [´0´..´9´]))Then
   Begin
      Inc(byPodeSair);
      If((Key = 13)And(Trim((Sender As TEdit).Text) <> ´´))Then 
      Begin
           Self.Close();
           Repeat
              Application.ProcessMessage();
           Until(byPodeSair = 2);
      End;
   End;
End;



GOSTEI 0
POSTAR