Classe: TBtnBmp2
Cria um objeto do tipo botão com imagem ou Pop-up.
TSrvObject -> TControl -> TBtnBmp -> TBtnBmp2
Este componente não permite foco.
A propriedade <lCanGotFocus>, da classe TSrvObject, que define se o objeto pode ou não receber foco não tem efeito sobre o TBtnBmp2.
#include "TOTVS.CH"User Function TBtnBmp2() DEFINE DIALOG oDlg TITLE "Exemplo TBtnBmp2" FROM 180,180 TO 550,700 PIXEL oBtn1 := TBtnBmp2():New( 02,02,26,26,'copyuser',,,,{||Alert("Botão 01")},oDlg,,,.T. ) oBtn2 := TBtnBmp2():New( 02,32,26,26,'critica',,,,{||Alert("Botão 02")},oDlg,,,.T. ) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TBtnBmp2
![](https://tdn.totvs.com/download/attachments/6063216/Mon+May+21+15%3A38%3A29+BRT+2012temp?version=1&modificationDate=1337625509843)
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