Fórum Colocar a hora atual dentro de um Panel...Não é tão simples! #210381
29/01/2004
0
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...
só preenche os panels depois que acaba todo o processo.
Alguem tem alguma sujestão?
Qualquer ajuda é bem vinda,
Lucas!
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
Curtir tópico
+ 0
Responder
Posts
29/01/2004
Nildo
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?
Responder
Gostei + 0
29/01/2004
Beppe
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).
Responder
Gostei + 0
29/01/2004
Lucas Silva
Valeu pessoal,
Resolveu!
Resolveu!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)