Fórum Simular um pressionamento de um botão no MessageDlg ??? #215986
22/02/2004
0
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
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
Curtir tópico
+ 0
Responder
Posts
22/02/2004
Adilsond
No evento OnTimer voce primeiramente desabilita-o.
procedure .....
begin
Timer1.Enabled := False;
try
if MessageDlg(...) = mrNo then
....
finally
Timer1.Enabled := True;
end;
end;
procedure .....
begin
Timer1.Enabled := False;
try
if MessageDlg(...) = mrNo then
....
finally
Timer1.Enabled := True;
end;
end;
Responder
Gostei + 0
22/02/2004
Adilsond
Com relação ao fechar a mensagem:
http://delphiforum.icft.com.br/forum/viewtopic.php?t=24846&highlight=mensagem
http://delphiforum.icft.com.br/forum/viewtopic.php?t=24846&highlight=mensagem
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)