ProcessMessages

#include "totvs.ch"

#DEFINE CRLF   Chr(13)+Chr(10)

User Function prgprocessmsg()
Local cMensagem := ""
Local oDialog := Nil
Local oSay := Nil
//+----------------------------------------------------------------------------+
//|Cria o diálogo para exemplificar o uso do ProcessMessage                    |
//+----------------------------------------------------------------------------+
  oDialog := tDialog():New()
  oDialog:cTitle  := "Exemplo de ProcessMessage"  
  oDialog:nWidth  := 800    
  oDialog:nHeight := 600  
  oSay := tSay():New(10, 10, {||  "Pressione F12 e verifique o gerenciador de tarefas"}, oDialog, , , , , , .T., , , 200, 20)
  SetKey(VK_F12, {||ProcessMessages()})
  //+----------------------------------------------------------------------------+
  //|Apresenta o diálogo                                                         |
  //+----------------------------------------------------------------------------+
  oDialog:Activate()
  Return