Colocar a hora atual dentro de um Panel...Não é tão simples!

Delphi

29/01/2004

Tem uma procedure que executa várias coisas,
Está procedure é chamada ao click de um botão,
gostaria de que quando o usuário clicasse no botão um panel me informasse a hora atual.
Simples, né?
Só que o panel só me mostra a hora depois que todo o evento acaba...
  procedure TForm1.Button1Click(sender: TObject)
  begin
  pnlInicio.Caption := TimeToStr(Now);  
 // aqui tem uma pancada de métodos....
  pnlTermino.Caption := TimeToStr(Now);
  end;



só preenche os panels depois que acaba todo o processo.
Alguem tem alguma sujestão?

Qualquer ajuda é bem vinda,
Lucas!


Lucas Silva

Lucas Silva

Curtidas 0

Respostas

Nildo

Nildo

29/01/2004

  procedure TForm1.Button1Click(sender: TObject) 
  begin 
  pnlInicio.Caption := TimeToStr(Now);  
   pnlInicio.Update;
   Application.ProcessMessages;
// aqui tem uma pancada de métodos.... 
  pnlTermino.Caption := TimeToStr(Now); 
   pnlInicio.Update;
  end;


Só isso?


GOSTEI 0
Beppe

Beppe

29/01/2004

Coloca um Application.ProcessMessages quando quiser atualizar a tela. Chamando Update ou Refresh talvez resolva também(se resolver, é preferível, pois só trata da pintura).


GOSTEI 0
Lucas Silva

Lucas Silva

29/01/2004

Valeu pessoal,
Resolveu!


GOSTEI 0
POSTAR