Fechar Application.MessageBox com tempo

Delphi

14/01/2007

Estou com um problema que quando o usuario clica um botao e despara uma mensagem Application.MessageBox
sim ou nao, como deseja confirmar o cadastro? , o problema é que meu sistema em alguns momentos abre uma tela automaticamente, e se o usuario nao clicou na mensagem ele trava, pois esta tele que abre autimaticamente fica por cima do Application.MessageBox. Pensei em colocar um tempo para fechar O Application.MessageBox como um contador de 10 segundos alguem sabe como faço para colocar um contador de tempo em um Application.MessageBox para fechar se o usuario não clicar.


Elcilei


Elcilei

Elcilei

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

14/01/2007

Colega,

Vamos forçar o messagebox ficar por cima (MB_[b:0a78d670d0]TOPMOST[/b:0a78d670d0]) da tela, pois acredito que seja a melhor solução. Veja:

if Application.MessageBox(´Deseja confirmar o cadastro?´, ´Confirmação´,
  MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_TOPMOST) <> IDYES then
begin
  Exit;
end;



GOSTEI 0
Raserafim

Raserafim

14/01/2007

tb estava com este mesmo problema.

a solução que tinha achado foi ensinar ao usuário que quando acontecer isto, basta pressionar Alt + Tab.

esta solução do aroldo é bem melhor. hehehe


GOSTEI 0
POSTAR