FiveTech Software tech support forums

Dear Hakan,

Have you checked if EnumChildWindow() returns the TWebView hCtrl ?

... 0, cTestApp)    IF ! EMPTY(hWnd)       BringWindowToTop( hWnd )       EnumChildWindows( hWnd,;           { | hCtrl | If( GetWindowText( hCtrl ) == "Hello world",;                           ( SetWindowText( hCtrl, "HeyHeyHey" ...

The problem only occurs when closed in tray through another executable with command:

PostMessage (hCtrl, WM_CLOSE, 2)

When exit program normaly, the icon disappears correctly.

Ok Thank You very Much

It works in this way not -1 but 65535


if GetWindowLong( hCtrl, GWL_ID ) == 65535

I use Pelles

Best regards
Marco

Elvira,

elvira wrote:And can you please teach us how to change the SAY´s text in rutime mode?.

Once you have hCtrl, did you try using:

Code: Select all  Expand view

SetWindowText( hCtrl, "New text" )

?

EMG

...  3266  3284 HCTLNEXT                WINDOW.PRG     3258  3262  3267 HCTLPREV                WINDOW.PRG     3275  3280  3286G 3287  3289  3292 HCTRL                  WINDOW.PRG      628   629  3256  3258  3261  3266  3273  3275  3279  3284 HCURSOR                WINDOW.PRG     3504 HDC     ...

... hMenu[ "TECLA" + cCont ] ] := .t.                         EXIT                      CASE ACC_CONTROL                         ::hKeyDown:hCtrl[ hMenu[ "TECLA" + cCont ] ] := hMenu:accion                         ::hKeyDown:aCtrl[ hMenu[ "TECLA" + cCont ] ] := .t.   ...

November 2011 ============= * Fix: Some required changes on METHOD GoNextCtrl( hCtrl ) CLASS TWindow, bugs reported in: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=22853&start=0 XBROWSE: Enhancements: * New method in TXBrwColumn class: SetColsAsRows( ...

... al siguiente get del dialogo (oDlg1) No se si me he explicado bien, de todas formas lo he podido solucionar de esta forma: METHOD GoNextCtrl( hCtrl ) CLASS TWindow   local hCtlNext, nAt    if oWndFromhWnd( hCtrl ):oWnd:hWnd <> ::hWnd     return oWndFromhWnd( hCtrl ):oWnd:GoNextCtrl( ...

... control becomes focus and can be edited , but the focus can not be moved. Looking in the source from windows.prg i find for METHOD GoNextCtrl( hCtrl ) CLASS TWindow :    if Upper( ::ClassName() ) != "TDIALOG"      nAt = AScan( ::aControls, ...

... in FWH 6.2. But thanks for an idea ... Roman In a MDICHILD or GROUPS? When? Change and try this in WINDOW.PRG: [code=/F] METHOD GoNextCtrl( hCtrl ) CLASS TWindow local hCtlNext := NextDlgTab( ::hWnd, hCtrl ), nAt //if Upper( ::ClassName() ) != "TDIALOG" if Upper( ::ClassName() ...

Otto,

Have you previously done this ?

oCtrl:hWnd = hCtrl

Please send me your most recent RE.prg and I will check it here, thanks

... //----------------------------------------------------------------------------// function InitControls( oDlg )    local hDlg := oDlg:hWnd, hCtrl := GetWindow( hDlg, GW_CHILD ), oCtrl    if hCtrl != 0       oCtrl = TControl()       oCtrl:oWnd = oDlg       oCtrl:hWnd = hCtrl       oCtrl:Link() ...

... If( ::bStart != nil,; Eval( ::bStart, ::bStart := nil ),), .f. METHOD End( nResult ) METHOD EraseBkGnd( hDC ) METHOD GetHotPos( nChar, hCtrlAt ) METHOD GetItem( nId ) INLINE GetDlgItem( ::hWnd, nId ) METHOD GotFocus() INLINE ::lFocused := .t.,; If( ::bGotFocus != nil, Eval( ::bGotFocus ...

... del resultado pase al 10 get... e intentado con: oGetxxx:setfocus() __KeyBoard ( CHR (9) ) && el tabulador oDlgxxx:GoPrevCtrl ( hctrl ) && el hctrl no se como se define, alguien puede enviarme un ejemplo oDlgxxx:GoNextCtrl ( hctrl ) && lo mismo no se como se define ...