Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
...
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server
Veja também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas