Cria um objeto do tipo botão com aparência de hiperlink (como em um navegar de Internet). Desta forma, esse objeto terá os mesmos eventos e ações da classe TButton.
Hierarquia
- TControl
- THButton
Construtores
Exemplos
Exemplo 1
#include "TOTVS.CH"
User Function THButton()
DEFINE DIALOG oDlg TITLE "Exemplo THButton" FROM 180,180 TO 550,700 PIXEL
// Cria uma 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
Resultado do Exemplo
Abrangência
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