ShowMessage - Janela de Aviso - 1o Plano

08/12/2009

Como utilizando o componete showmessage ou aplication.messagebox a nova janela sempre esteje em primeiro, independente da utilizacao das tecla ALT+TAB (WIndows). O maior problema é que esta janela fica escondida atras do form que a chamou , causando a sensacao que o programa esta travado.
Edival Lira

Edival Lira

Curtidas 0

Respostas

Wesley Yamazack

Wesley Yamazack

08/12/2009

Olá amigo bom dia !

  Através da API do Windows podemos mandar 2 tipos de Mensagem : SendMessage e PostMessage

SendMessage : Envia a mensagem para Windows e aguarda que até ela ser processada;PostMessage : Envia a mensagem para a fila de Windows.
   Então como isso funciona ?
      Onde você queira mandar a mensagem, implemente o seguinte. Exmplo :

Clique do Botão !!!
procedure TForm1.Button1Click(Sender: TObject); begin  SendMessage(Handle, WM_APP,0,0);   ShowMessage('Teste de Msg'); end;Clique do Botão !!! procedure TForm1.Button2Click(Sender: TObject);begin  Perform(WM_APP,0,0);  ShowMessage('Teste de Msg');end;
Veja se issso irá resolver teu problema.

Um abraço

Wesley Y
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

08/12/2009

OLá amigo, podemos fechar o chamado, consegui fazer o exemplo ?

Abraço

Wesley Y
GOSTEI 0
Edival Lira

Edival Lira

08/12/2009

Obrigado,     estarei fazendo os testes     Atenciosamente, Davi.
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

08/12/2009

OK amigo, estamos aguardando

Att,

Wesley Y
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

08/12/2009

Olá amigo, consegui fazer o exemplo ? Estamos aguardando para fechar o chamado.

Att,
Wesley Y
GOSTEI 0
POSTAR