Histórico da Página

  #include "TOTVS.CH"
  User Function THButton()  
   DEFINE DIALOG oDlg TITLE "Exemplo THButton" FROM 180,180 TO 550,700 PIXEL    
  
   // Cria Fonte para visualizaçãouma instância da classe TFont
   oFont := TFont():New('Courier new',,18,.T.)
 
   oTHButton := THButton():New(01,01,"Caption",oDlg,{||Alert("THButton")},40,20,oFont,"Observação")    
   ACTIVATE DIALOG oDlg CENTERED 
   Return