PRINT oprn NAME OEMTOANSI(TITULO) PREVIEW MODAL
oPrn:Setup()
aparece a janela de seleção e configuração da Impressora, porém se tentarmos acionar o ENTER ele não funciona, tem que usar o mouse.
Alguma solução para isto ?

Moderador: Moderadores
PRINT oprn NAME OEMTOANSI(TITULO) PREVIEW MODAL
oPrn:Setup()
//-Chamar a Calculadora do Windows---------------------------------------//
FUNCTION Set_Calc() // Para que ela se abra somente uma vez
// Usa-se TWCapture.prg www.dbwide.com.ar
// ca-windows.prg baixei pela Internet.
LOCAL oWCalc:=TWCapture():New("Calculadora")
IF oWCalc:lCaptured
oWCalc:Restore()
oWCalc:GoTop()
ELSE
WinExec("Calc.Exe")
ENDIF
RETURN (NIL)
//----------------------------------------------------------------------------//
// AUTOR.....: Manuel Exp¢sito Su rez Soft 4U '2001 //
// e-Mail....: maex14@dipusevilla.es //
// CLASE.....: TWCapture //
// FECHA MOD.: 18/08/2001 //
// VERSION...: 1.00 //
// PROPOSITO.: Captura una ventana abierta por nuestro programa o por otra //
// aplicacion para poder enviarle mensajes como si fuera una //
// ventana mas de nuestro programa. //
//----------------------------------------------------------------------------//
// DATAS.....: * lCapture tiene un valor logico, .f. si la ventana no se //
// pudo capturar y .t. si si se hizo //
// //
// METODOS...: * New( cTitle ) es el constructor, cTitle es el titulo de una //
// ventana, si se le pasa intentara capturarla y pondra .t. en //
// ::lCapture //
// * WCapture se encarga de buscar la ventana y asignarla a //
// nuestro objeto TWindow. Si la captura podremos interactuar //
// como si fuera una ventana mas de nuestra aplicacion //
// //
// NOTAS.....: TWCapture esta heredada de TWindows por lo que tendremos a //
// nuestra disposicion todas las datas y metodos de esta clase. //
// No distingue entre mayusculas y minuscula pero si se tienen //
// en cuenta los espacios //
//----------------------------------------------------------------------------//
#include "Objects.ch"
//----------------------------------------------------------------------------//
CLASS TWCapture FROM TWindow
DATA lCaptured AS BOOL
METHOD New( cTitle ) CONSTRUCTOR
METHOD WCapture( cTitle )
ENDCLASS
//----------------------------------------------------------------------------//
METHOD New( cTitle ) CLASS TWCapture
if( ValType( cTitle ) == "C", ::WCapture( cTitle ), ::lCaptured := .f. )
return( Self )
//----------------------------------------------------------------------------//
METHOD WCapture( cTitle ) CLASS TWCapture
local hWnd := FindWindow( 0, cTitle )
::lCaptured := ( hWnd > 0 )
::hWnd := if( ::lCaptured, hWnd, 0 )
return( ::lCaptured )
//----------------------------------------------------------------------------//
Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes