FiveTech Software tech support forums

Como buscar un control ID en un diálogo (sin redefinir sus controles):

Code: Select all  Expand view

DEFINE DIALOG oDlg RESOURCE cResDlgName

ACTIVATE DIALOG oDlg ;
  ON INIT ( lFound := LookForControl( oDlg:hWnd, nCtrlId ), oDlg:End() )

...

function LookForControl( hDlg, nCtrlId )

  local hCtrl

  while ( hCtrl := GetWindow( hDlg, GW_CHILD ) ) != 0 .and. GetParent( hCtrl ) == hDlg
     if GetWindowLong( hCtrl, GWL_ID ) == nCtrlId
        return .T.
     endif
     hCtrl = GetWindow( hCtrl, GW_HWNDNEXT )
  end

return .F.
 

Antonio,

Perdón mi ignorancia, y ... cual es el sentido de buscar un ID si no lo REDEFINO ????

Salu2, Ariel.

Ariel,

Algunos usuarios me preguntaron la forma de hacerlo.

Imagino que para aplicaciones grandes y genericas en donde lo puedan necesitar (módulos parecidos pero con diferencias que reusen código, etc.)

Antonio,

Gracias x responder, no lo habia pensado asi

Seguimos aprendiendo.... jejeje

Salu2.

Hola mr Antonio ¿Podría mostrarme un ejemplo en la práctica? Por ejemplo yo tengo en mi controles de diálogo ID 4050.4051 y 4052 .... etc
como lo hago basado en el ejemplo anterior? No soy capaz de trabajar en mi PRG, regresa este error

Code: Select all  Expand view

Error description: Error BASE/1003  Variable does not exist: GW_CHILD

que es eso GW_CHILD?

Gracias

Hola ICO

coloca estos define, seguro los necesitaras

#define GW_HWNDNEXT 2
#define GW_CHILD 5
#define GWL_ID (-12)

GW_CHILD es un "flag" que usa la funcion GetWindow, por eso el prefijo (GW)
http://msdn.microsoft.com/en-us/library/ms633515(VS.85).aspx

GWL es para la funcion GetWindowLong...
podras encontrar muchas variables con distintos prefijos es una manera facil de identificar la funcion que lo usa

Hola Daniel
poner la define como se muestra, pero mi aplicación dejó de funcionar

Abraços..

Luiz,

Puedes poner un ejemplo completo de cómo lo estás usando ? gracias

Ola Antonio
es exactamente lo que mi quieres saber, Copei y pegado su ejemplo, que está por encima y en lugar de nctrlID poner 4050.4051 Quiero saber dónde colocar los identificadores

no tengo idea de cómo proceder

Gracias

Luiz,

Los identificadores tienen que estar definidos en tu fichero RC

Gracias Antonio, voy a tratar de hacer después de que el informe del resultado..

abrazos