Nesse vídeo demonstraremos a utilização da classe TDialog, que serve para criar telas (janelas), onde nós podemos colocar diversos objetos.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe486
Classe para criar janelas
@type Function
@author Atilio
@since 04/04/2023
@see https://tdn.totvs.com/display/tec/TDialog
@obs
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe486()
Local oDlgAux
Local nJanAltu := 200
Local nJanLarg := 400
Local lDimPixels := .T.
Local lCentraliz := .T.
Local bBlocoIni := {||}
Local cJanTitulo := "Tela usando TDialog"
//Cria a dialog
oDlgAux := TDialog():New(0, 0, nJanAltu, nJanLarg, cJanTitulo, , , , , , /*nCorFundo*/, , , lDimPixels)
//Ativa e exibe a janela
oDlgAux:Activate(, , , lCentraliz, , , bBlocoIni)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
