Fechar o showmessage

Delphi

16/12/2005

Olá pessoal, estou com uma duvida, será que alguem pode me ajudar.
Quando eu gravo, acostumo dar uma mensagem.
Showmessage(´Gravado com sucesso´);
Como que eu faço para colocar um timer na mensagem e fechar sem o usuario clicar.

Muito obrigado pela atenção.


Jmarcelo_8

Jmarcelo_8

Curtidas 0

Respostas

Bruno Belchior

Bruno Belchior

16/12/2005

Nunca testei... porém acho que funcionaria, use um Application.MessageBox (pra controlar o Caption da Mensagem), então no OnTimer faça (especifique o tempo e ative):
var
  HndlMensagem: THandle;
begin
  HndlMensagem := FindWindow(nil, ´Caption da mensagem´);
  if HndlMensagem <> 0 then
    SendMessage(HndlMensagem, WM_QUIT, 0, 0);
end;



GOSTEI 0
Rgaffo

Rgaffo

16/12/2005

Por que vc não informa a mensagem em uma barra de status, fica bem melhor e depois de um tempo vc pode tirar a mensagem.

[]s

Robert


GOSTEI 0
Fx|hand

Fx|hand

16/12/2005

procure um componente free chamado TBallonHint... eu as vezes axo ele mto melhor q 1 messagebox... =)

com ele dah por exemplo vc avisar o usuario q está faltandu um campo pra preencher com um balão de hint... =)


GOSTEI 0
POSTAR