Simular um pressionamento de um botão no MessageDlg ???

Delphi

22/02/2004

Ola Galera...

Preciso que o cliente escolha em uma MessageDlg SIm ou Não se ele quer continuar usar o sistema.

Só que inde eu faço via programação if MessageDialog(Seu Tempo acabou deseja continuar e acertar o valor excedente depois ?,MtConfirmation,0) = MrNo then
Begin
// Neste momento eu travo o Teclado
End;

Só que esta MessageDlg está no meio de uma rotina de um timer a cada 10 segundos o timer verifica se acabou o tempo de uso.

e enquanto o usuário não clica o timer fica rodando e passando pela messagedlg criando-a Varias vezes

Se tiver alguma forma de simular o pressionamento do botão da messageDlg após cinco segundos que o usuário não clicou

só que se o cliente não clicar no botão yes ou no minha rotina que


Info.wtomfs

Info.wtomfs

Curtidas 0

Respostas

Adilsond

Adilsond

22/02/2004

No evento OnTimer voce primeiramente desabilita-o.

procedure .....
begin
Timer1.Enabled := False;
try
if MessageDlg(...) = mrNo then
....
finally
Timer1.Enabled := True;
end;
end;


GOSTEI 0
Adilsond

Adilsond

22/02/2004

Com relação ao fechar a mensagem:

http://delphiforum.icft.com.br/forum/viewtopic.php?t=24846&highlight=mensagem


GOSTEI 0
POSTAR