import.css=/download/attachments/6062824/tecnologia.css |
Cria um objeto do tipo botão.
#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 |
Advanced Protheus 6.09, Advanced Protheus 7.10, Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server