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
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