import.css=/download/attachments/6062824/tecnologia.css |
Classe: TOleContainerCria um objeto do tipo botão vinculado a um objeto OLE (Object Linking and Embedding).
TSrvObject -> TControl -> TOleContainer NewMétodo construtor da classe.TOleContainer(): New ( [ nRow], [ nCol], [ nWidth], [ nHeight], [ oWnd], [ lAutoActivate], [ cFileName] ) --> oObjeto
oObjeto
oTOleContainer := TOleContainer():New( 01,01,260,184,oDlg,.T.,; 'C:\Dir\Totvs.doc' ) DoVerbDefaultChama o método padrão do objeto OLE (Object Linking and Embedding) utilizado.TOleContainer(): DoVerbDefault ( ) --> oTOleContainer:DoVerbDefault() OpenFromFileAbre arquivo do tipo OLE (Object Linking and Embedding).TOleContainer(): OpenFromFile ( [ cFileName], [ lAsIcon], [ llowInPlace] ) -->
oTOleContainer:OpenFromFile('C:\Dir\Totvs.doc',.F.)
Exemplo da classe TOleContainer Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
|