Exibir origem

import.css=/download/attachments/6062824/tecnologia.css

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

  #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

TOTVSTEC > THButton > THButton_Desktop.png

Abrangência

Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

Veja também

TButton