ShowMessage com tempo se o usu�rio esquecer de clicar OK

Question

Dia desses, vi, na pagina do Clube, um artigo sobre trabalhar com ShowMessage com tempo definido caso o usuario se esqueca de clicar no botao Ok.
Tentei recupera-lo agora, mas nao encontrei.
Alguem o possui e, se sim, pode enviar para mim?

Claudemir

Rafaelunp · Answer

Ae, Se dedscobrir manda pra mim tamb�m!To precisando disso tb...Vou dar uma pesquisada......

Dataclass · Answer

Rafael,Est� a� uma maneira de avisar o usuario para clicar num bot�o ou qualquer outra coisa.No caso usamos um Timer.[code:1:42ae34d4e7]{Procedimento avisa a cada 5 segundos}procedure TForm1.TimerAvisoTimer(Sender: TObject);begin  //incrementando o contador  segundos := segundos +1;  //caso j� fa�am 5 segundos emite mensagem  if segundos =5 then  begin    ShowMessage(�Clique OK!�);    segundos :=0;  end;end;[/code:1:42ae34d4e7][code:1:42ae34d4e7]//iniciando o contador e o timerprocedure TForm1.FormShow(Sender: TObject);begin  segundos := 0;  TimerAviso.Enabled := True;end;[/code:1:42ae34d4e7]...

Rafaelunp · Answer

[quote:2963c5e4c1=�DataClass�]Rafael,Est� a� uma maneira de avisar o usuario para clicar num bot�o ou qualquer outra coisa.No caso usamos um Timer.[code:1:2963c5e4c1]{Procedimento avisa a cada 5 segundos}procedure TForm1.TimerAvisoTimer(Sender: TObject);begin  //incrementando o contador  segundos := segundos +1;  //caso j� fa�am 5 segundos emite mensagem  if segundos =5 then  begin    ShowMessage(�Clique OK!�);    segundos :=0;  end;end;[/code:1:2963c5e4c1][code:1:2963c5e4c1]//iniciando o contador e o timerprocedure TForm1.FormShow(Sender: TObject);begin  segundos := 0;  TimerAviso.Enabled := True;end;[/code:1:2963c5e4c1][/quote:2963c5e4c1]Acho que n�o era bem isso que eu queria....Seguinte, imagine que apareceu uma mensagem para o usuario (um ShowMessage ou Aplication.MessageBox) ai o usu�rio foi tomar um caf� e o restante dos processos est� dependendo daquele �ok�. Ent�o eu gostaria que ap�s xsegundos o Showmessage fosse fechado para dar continuidade aos processos...Obrigado!...

Afarias · Answer

Dialogos s�o todos MODAIS... pq vc apenas n�o cria um formul�rio e usa para passar as mesagens usando SHOW para q o processo n�o seja interrompido??T+...

Plautz · Answer

E ai, gente?Bom, adaptei algum c�digo para fechar uma MessageBox depois de determinado tempo. S� n�o consegui fazer com que o o que est� escrito na mensagem indicasse o tempo restante.Segue o c�digo:[code:1:1da7a7abe4]procedure TForm1.Button1Click(Sender: TObject); Begin  Timer1.Interval := 5000; // Tempo que a msg ficar� na tela -> 5 Segs  Timer1.Enabled := True;  MessageBox(Handle, PChar(�Algum baguio aqui!�), Pchar(�Titulo�), 8224); end;procedure TForm1.Timer1Timer(Sender: TObject);begin keybd_event(VK_RETURN,0,0,0); Timer1.Enabled := False;end;[/code:1:1da7a7abe4]Espero que possa ajud�-lo. Se algu�m souber como fazer para que, al�m da mensagem desaparecer, conste na mensagem o tempo restante, por favor postem. (Achei na p�gina do Torry alguns componentes que fazem isso, ou pelo menos dizem que fazem pois n�o testei. Sei que existe uma maneira de fazer isso apenas com c�digo, fugindo de componetes.)Abra�os....

Plautz · Answer

Acho que encontrei o que os colegas queriam. Vejam no endere�o [url]//www.clubedelphi.com.br/aplicativos/tempomsg.html[/url]Qualquer coisa entrem em contato. Abra�os....

Vieira_alex · Answer

Amigo entre em aplicativos da p�gina clube delphi e procure por mensagens com timer.Espero ter ajudado..... :D...

Xlobao · Answer

[quote:d505b8bb32=�rafaelunp�]Ae, Se dedscobrir manda pra mim tamb�m!To precisando disso tb...Vou dar uma pesquisada...[/quote:d505b8bb32]Abaixo, pequena adaptacao de trecho do codigo enviado por um camarada forense.Acrescente um TBitBtn e um TTimer e aponte os eventos OnClick.procedure TFProv_Principal.BitBtn1Click(Sender: TObject);begin  Timer1.Interval := 3000; // Tempo que a msg ficar� na tela -> 3 Segs  Timer1.Enabled := True;  MessageBox(Handle, PChar(�Testando MessageBox com tempo pr�-definido.�), Pchar(�Titulo�), 8224);end;procedure TFProv_Principal.Timer1Timer(Sender: TObject);begin   keybd_event(VK_RETURN,0,0,0);   Timer1.Enabled := False;end;...

F�rum ShowMessage com tempo se o usu�rio esquecer de clicar OK #241072