Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

Portuguese

Pagetitle

	THButton
	THButton

Colapse ALL

Expand ALL

Classe: THButton

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

TSrvObject -> TControl -> THButton

Construtores

New

Método construtor da classe.

Sintaxe

THButton(): New ( [ nRow], [ nCol], [ cCaption], [ oWnd], [ bLClicked], [ nWidth], [ nHeight], [ oFont], [ bWhen] ) --> oObjeto

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
nRow	Numérico	Indica a coordenada vertical em pixels ou caracteres.
nCol	Numérico	Indica a coordenada horizontal em pixels ou caracteres.
cCaption	Caracter	Indica o título do botão.
oWnd	Objeto	Indica a janela ou controle visual onde o botão será criado.
bLClicked	Bloco de código	Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão.
nWidth	Numérico	Indica a largura em pixels do botão.
nHeight	Numérico	Indica a altura em pixels do botão.
oFont	Objeto	Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do título do botão.
bWhen	Bloco de código	Indica o bloco de código que será executado quando a mudança de foco da entrada de dados, na janela em que o controle foi criado, estiver sendo efetuada. Observação: O bloco de código retornará verdadeiro (.T.), se o controle permanecer habilitado; caso contrário, retornará falso (.F.).

Retorno

oObjeto

Retorna o objeto criado.

Exemplos

oTHButton := THButton():New(01,01,"Caption",oDlg,;             {||Alert("THButton")},40,20,,"Observação")

Exemplos

#include "TOTVS.CH"User Function THButton()  DEFINE DIALOG oDlg TITLE "Exemplo THButton" FROM 180,180 TO 550,700 PIXEL    oTHButton := THButton():New(01,01,"Caption",oDlg,;                 {||Alert("THButton")},40,20,,"Observação")	  ACTIVATE DIALOG oDlg CENTERED Return

Preview

Exemplo da classe THButton