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
![](https://tdn.totvs.com/download/attachments/6063214/Mon+May+21+15%3A38%3A27+BRT+2012TBtnBmp.jpg?version=1&modificationDate=1337625507406)
![](https://tdn.totvs.com/download/attachments/6063214/Mon+May+21+15%3A38%3A27+BRT+2012TBtnBmp.jpg?version=1&modificationDate=1337625507406)
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