F�rum Mensagem de "Aguarde piscando na tela" #398811

07/04/2011

Pessoal estou tentando colocar uma mensagem de "Aguarde" na tela e fiz da seguinte forma:
- Criei um frm e nele coloco um Ontimer.
No interval do Ontimer := 1850
No evento OnTimer coloquei o c�digo:

begin
  Label1.Font.Size := 28;
  Label1.Font.Color := clRed;
  if (Label1.Visible = True) then
      Begin
        Label1.Caption := 'AGUARDE...';
        TempoTimer.Interval := TempoTimer.Interval * 10;
        Label1.Visible := False;
        Application.ProcessMessages;
      end
    else
      Begin
        Label1.Caption := '';
        TempoTimer.Interval := TempoTimer.Interval div 10;
        Label1.Visible:= True;
        Application.ProcessMessages;
      end;
end;

Nesse mesmo frm coloco no Oncreate: Label1.Visible := True;
No onShow

procedure TfrmMsgProcesso.FormShow(Sender: TObject);
begin
  Top  := 9;  // Para ficar no alto da tela
  Left := Trunc((Screen.Width/2) - (Width/2));  // Para ficar no centro da tela
end;

- Criei uma unit para colocar todas as fun��es:
Nela criei duas procedures, 1 para chamar o frm da mensagem e outra para fecha-la, est�o assim:

procedure MostraTelaMsgProcesso();
begin
   Application.CreateForm(TfrmMsgProcesso, frmMsgProcesso);
   frmMsgProcesso.Show;
   frmMsgProcesso.BringToFront;
end;

procedure FechaTelaMsgProcesso();
begin
   frmMsgProcesso.Close;
   frmMsgProcesso.Destroy;
end;

No frm onde fa�o a chamada :

 begin  // 0
   MostraTelaMsgProcesso();
   c�digo
   .......
  FechaTelaMsgProcesso();

O problema � que a mensagem � aparece, me parece que o sistema � est� lendo os c�digos que est�o o evento Ontimer.
Mas mesmo assim, se eu colocar alguma coisa no frm da mensagem e deixa-la est�tica (retirar as fun��es que fazem piscar) a mensagem ainda assim n�o aparece, o frm da mensagem aparece, mas fica v�zio.
Algu�m poderia me dizer o que est� sa�do de errado ?

Marcos Barbosa

Curtir t�pico

+ 0

Responder

Posts

07/04/2011

Wilson Junior

Em que momento do seu c�digo voc� habilita o Timer (Timer.Enabled := True)?

Responder

Gostei + 0

07/04/2011

Marcos Barbosa

No proprio form, na propriedade Enebled.

Responder

Gostei + 0

07/04/2011

Marcos Barbosa

Oh, vamos esquecer a palavra piscando...
Fiz o mesmo processo, deixei um form com o CAPTION = 'AGUARDE'
Na frm da fun��o

procedure MostraTelaMsgProcesso();
begin
   Application.CreateForm(TfrmMsgProcesso, frmMsgProcesso);
end;

procedure FechaTelaMsgProcesso();
begin
   frmMsgProcesso.Close;
   frmMsgProcesso.Destroy;
end;

Ou seja, um form simples q � chamado, mas nada q � colocado dentro dele aparece e todas as pripriedades est�o com visible := true.

Bem acho que pelo menos assim deveria aparecer algo n� ?

Responder

Gostei + 0

07/04/2011

Dirceu Morais

Ser� que um refresh no form n�o resolve?

procedure MostraTelaMsgProcesso();
begin
   Application.CreateForm(TfrmMsgProcesso, frmMsgProcesso);
   frmMsgProcesso.refresh;
end;

Responder

Gostei + 0

07/04/2011

Emerson Nascimento

altere o procedimento do timer para:

begin
Label1.Visible := not Label1.Visible;
if Label1.Visible
TempoTimer.Interval := 1000;
else
TempoTimer.Interval := 500;
Update;
end;

eu tenho um form com essa finalidade. se quiser posso te mandar por e-mail.

Responder

Gostei + 0

07/04/2011

Marcos Barbosa

Dirceu, colocando o refresh como vc falou a palavra 'A G U A R D E' come�ou a aparecer, isso � um grande passo, agora falta ela piscar... rsrsrs

Emerson, coloquei da forma q vc indicou, mas � est� funcionando. Deixa quebrar a cabe�a mais um pouco, depois de for necess�rio eu te peco o c�digo. Se puder deixe seu contato.

Responder

Gostei + 0

07/04/2011

Emerson Nascimento

da forma que eu coloquei voc� j� deve ter o caption do seu label com o conte�do 'AGUARDE. . .'

se voc� deixar vazio obviamente n�o vai aparecer a mensagem....

Responder

Gostei + 0

08/04/2011

Marcos Barbosa

Emerson, valeu pela ajuda, realmente eu testei assim e funcionou... brigad�o mesmo, e desculpe pela demora em retornar a resposta.

Responder

Gostei + 0

16/04/2013

Jos�

Este t�pico esta sendo fechado por inatividade. Se necess�rio, sinalizar para que seja reaberto ou abrir um novo.

Responder

Gostei + 0