TButton

  #include "TOTVS.CH"
  User Function TButton()  
  DEFINE DIALOG oDlg TITLE "Exemplo TButton" FROM 180,180 TO 550,700 PIXEL      
  // Usando o New    
  oTButton1 := TButton():New( 002, 002, "Botão 01",oDlg,{||alert("Botão 01")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )    
  oTButton2 := TButton():New( 022, 002, "Botão 02",oDlg,{||alert("Botão 02")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )    
  oTButton3 := TButton():New( 042, 002, "Botão 03",oDlg,{||alert("Botão 03")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  // Usando o Create    
  oTButton4 := TButton():Create( oDlg,062,002,"Botão 04",{||alert("Botão 04")},; 40,10,,,,.T.,,,,,,)
  ACTIVATE DIALOG oDlg CENTERED 
  Return