Classe: TButton
Cria um objeto do tipo botão.
TSrvObject -> TControl -> TButton
Create
Método construtor da classe.
TButton(): Create ( [ oWnd], [ nRow], [ nCol], [ cCaption], [ bAction], [ nWidth], [ nHeight], [ uParam8], [ oFont], [ uParam10], [ lPixel], [ uParam12], [ cMsg], [ uParam14], [ bWhen], [ bValid], [ uParam17] ) --> oObjeto
| Nome | Tipo | Descrição | Obrigatório | Referência |
| oWnd | Objeto | Indica a janela ou controle visual onde o botão será criado. | ||
| 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. | ||
| bAction | 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. | ||
| uParam8 | Numérico | Compatibilidade. | ||
| 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. | ||
| uParam10 | Lógico | Compatibilidade. | ||
| lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | ||
| uParam12 | Lógico | Compatibilidade. | ||
| cMsg | Caracter | Indica a mensagem, do tipo dica de contexto (tooltip/hint), ao posicionar o ponteiro do mouse sobre o botão. | ||
| uParam14 | Lógico | Compatibilidade. | ||
| 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.). | ||
| bValid | Bloco de código | Indica o bloco de código de validação que será executado quando o conteúdo do objeto for modificado. Retorna verdadeiro (.T.), se o conteúdo é válido; caso contrário, falso (.F.). | ||
| uParam17 | Lógico | Compatibilidade. |
oObjeto
- ()
- Retorna o objeto criado.
oTButton3 := TButton():Create( oDlg,062,002,"Botão 04",{||alert("Botão 04")},; 40,10,,,,.T.,,,,,,) New
Método construtor da classe.
TButton(): New ( [ nRow], [ nCol], [ cCaption], [ oWnd], [ bAction], [ nWidth], [ nHeight], [ uParam8], [ oFont], [ uParam10], [ lPixel], [ uParam12], [ uParam13], [ uParam14], [ bWhen], [ uParam16], [ uParam17] ) --> oObjeto
| 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. | ||
| bAction | 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. | ||
| uParam8 | Numérico | Compatibilidade. | ||
| oFont | Objeto | Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. | ||
| uParam10 | Lógico | Compatibilidade. | ||
| lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | ||
| uParam12 | Lógico | Compatibilidade. | ||
| uParam13 | Lógico | Compatibilidade. | ||
| uParam14 | Lógico | Compatibilidade. | ||
| 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.). | ||
| uParam16 | Bloco de código | Compatibilidade. | ||
| uParam17 | Lógico | Compatibilidade. |
oObjeto
- ()
- Retorna o objeto criado.
oTButton1 := TButton():New( 002, 002, "Botão 01",oDlg,{||alert("Botão 01")},40,10,,,.F.,.T.,.F.,,.F.,,,.F. )Click
Dispara o evento, configurado na propriedade bAction, do botão.
TButton(): Click ( ) -->
oTButton:Click()
SetPopupMenu
Define o objeto do tipo TMenu referente ao botão.
TButton(): SetPopupMenu ( < oMenu> ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| oMenu | Objeto | Indica o objeto do tipo TMenu que será apresentado quando clicar, com o botão esquerdo do mouse, sobre o objeto. | X |
#include "TOTVS.CH"
User Function TButton()
DEFINE DIALOG oDlg TITLE "Exemplo TButton:SetPopupMenu" FROM 180,180 TO 550,700 PIXEL
// Cria Menu
oMenu := TMenu():New(0,0,0,0,.T.)
// Adiciona itens no Menu
oTMenuIte1 := TMenuItem():New(oDlg,"TMenuItem 01",,,,{||Alert("TMenuItem 01")},,,,,,,,,.T.)
oTMenuIte2 := TMenuItem():New(oDlg,"TMenuItem 02",,,,{||Alert("TMenuItem 02")} ,,,,,,,,,.T.)
oTMenuIte3 := TMenuItem():New(oDlg,"TMenuItem 03",,,,{||Alert("TMenuItem 03")} ,,,,,,,,,.T.)
oMenu:Add(oTMenuIte1)
oMenu:Add(oTMenuIte2)
oMenu:Add(oTMenuIte3)
// Cria botão que sera usado no Menu
oTButton1 := TButton():New( 002, 002, "Botão 01",oDlg,{||alert("Botão 01")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
// Define botão no Menu
oTButton1:SetPopupMenu(oMenu)
ACTIVATE DIALOG oDlg CENTERED
Return
Exemplo do método SetPopupMenu
| Propriedade | Descrição | Tipo |
| bAction | Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão. | Bloco de código |
| lProcessing | Indica que, verdadeiro (.T.), o bloco de código bAction não será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto; caso contrário, falso (.F.). | Lógico |
#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 oTButton3 := TButton():Create( oDlg,062,002,"Botão 04",{||alert("Botão 04")},; 40,10,,,,.T.,,,,,,)
ACTIVATE DIALOG oDlg CENTERED
Return
Exemplo da classe TButton
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas