Classe: TBtnBmp
Cria um objeto do tipo botão.
TSrvObject -> TControl -> TBtnBmp
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 |
#include "TOTVS.CH"User Function TBtnBmp() DEFINE DIALOG oDlg TITLE "Exemplo TBtnBmp" FROM 180,180 TO 550,700 PIXEL // Cria barra de botões oTBar := TBar():New( oDlg,25,32,.T.,,,,.F. ) // Cria botões oTBtnBmp1 := TBtnBmp() :NewBar('RPMNEW',,,,'',; {||Alert('TBtnBmp 01')},.F.,oTBar,.T.,{||.T.},,.F.,,,1,,,,,.T. ) oTBtnBmp2 := TBtnBmp() :NewBar('copyuser',,,,'',; {||Alert('TBtnBmp 02')},.F.,oTBar,.T.,{||.T.},,.F.,,,1,,,,,.T. ) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TBtnBmp
![](/command/getimage?key=fileName%3DTBtnBmp.jpg%2Cmime%3Dimage%2Fpjpeg%2Ctimestamp%3D1314707430057)
![](/command/getimage?key=fileName%3DTBtnBmp.jpg%2Cmime%3Dimage%2Fpjpeg%2Ctimestamp%3D1314707430057)
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