FiveTech Software tech support forums

Something like that? Function GetActive( oDlg )   local oObj   local x   For x = 1 to Len( oDlg:aControls )      if oDlg:aControls[ x ]:HasFocus()         oObj  := oDlg:aControls[ x ]         Exit  ...

I need to implemente a generic GETACTIVE() function (just like the old Clipper one). Any suggestion? This is a sample of what I need: #include "Fivewin.ch"FUNCTION MAIN()    LOCAL oDlg    LOCAL cVr1 ...

procure por GetActive ex:
GetActive():name == "get1"

EXPORTS HB_FUN_AADD @1 HB_FUN_ABS @2 HB_FUN_ACCELERATO @3 HB_FUN_ACCELERATOR @4 HB_FUN_ACHOICE @5 HB_FUN_ACLONE @6 HB_FUN_ACOPY @7 HB_FUN_ADEL @8 HB_FUN_ADIR @9 HB_FUN_AEVAL @10 HB_FUN_AFIELDS @11 HB_FUN_AFILL @12 HB_FUN_AINS @13 HB_FUN_ALERT @14 HB_FUN_ALIAS @15 HB_FUN_ALLTRIM @16 HB_FUN_ALTD @17 H...

... of installation is noted in static variables. If they applications are not installed, second and subsequent calls return nil without calling GetActive/CreateObject() functions, saving time. * Fix: database.prg: Inline edits in xbrowse are not getting saved. Fixed. * Fix: Xborwse.prg: Fix ...

... that is executed, when the active window changes? Or another approach with the same result? It should fire at the moment that a call oWinClient:GetActive() would give a different response. (Background info: for example, if mdi-child "A" is active, I want to show a ribbon-group "a", ...

or WndMain():oWndClient:getActive()

I get the following error when i try to referene oWnd:GetActive() Error description: Warning BASE/1004 Message not found: TMDIFRAME:GETACTIVE - Please contact P & L Args: Stack Calls =========== Called from: C:\xHarbour\source\rtl\tobject.prg => ...

oWnd:getActive() returns the active MDI child window (where oWnd is the main window).

If you use database objects then you don't need to deal with aliases.

Regards,
James

... so i have 10 window how return name of window Activate ? it return name obj more idont know how return name of window ob:=ownd:oWndClient:GetActive() someone can help me ? thanks so much

... trabajo en segundo plano, osea cuando llega a la función común ya no está la ventana activa en la mdi que la llamo. Por tanto creo que no me vale GetActive() En cuanto a "if upper( oWnd:oWndClient:aWnd[i]:cCaption )=cTitle", obviamente me sirve si paso "cTitle" a la función. El problema es que ...

oWnd:oWndClient:GetActive() --> oMdiChild

... CODE 0009:0CDE 000E9H PRINT CODE 0009:0DC8 00149H PRINT CODE 0009:0F12 004CDH TMDICLIENT CODE 0009:13E0 00064H CHILDNEW CODE 0009:1444 0007FH GETACTIVE CODE 0009:14C4 0003CH GETACTIVE CODE 0009:1500 000C9H CHILDCLOSE CODE 0009:15CA 00059H LCLOSEALL CODE 0009:1624 00461H TRCOLUMN CODE 0009:1A86 ...

... CODE 0009:0CDE 000E9H PRINT CODE 0009:0DC8 00149H PRINT CODE 0009:0F12 004CDH TMDICLIENT CODE 0009:13E0 00064H CHILDNEW CODE 0009:1444 0007FH GETACTIVE CODE 0009:14C4 0003CH GETACTIVE CODE 0009:1500 000C9H CHILDCLOSE CODE 0009:15CA 00059H LCLOSEALL CODE 0009:1624 00461H TRCOLUMN CODE 0009:1A86 ...

... noches compañeros, espero me puedan ayudar Desde un Get como este @x,y Get oGet Var cVar Of oDlg Valid FunVal() Function FunVal() Local oGet := GetActive() //aca me devuelve como que oGet fuera desconocido, es decir //no se como hacer que me devuelva el objeto get SIN PASARLE COMO PARAMETRO ...