>>>>>thisform.username.setfocus() >>>>>>>>>>but that doesnt activate the form or set the focus..i must click it first any idea?S:(
>procedure ActivateWindow > lparameters tnHwnd > declare short SetForegroundWindow in win32API integer nHwnd > declare short ShowWindow in WIN32API alias Win32ShowWindow ; > integer hwnd, ; > integer nCmdShow > declare short GetWindowPlacement in WIN32API ; > integer hwnd, ; > string @ lpwndpl > > #define SW_SHOWMINIMIZED 2 > #define SW_SHOWMAXIMIZED 3 > #define SW_MAXIMIZE 3 > #define SW_SHOWNOACTIVATE 4 > #define SW_SHOW 5 > #define SW_MINIMIZE 6 > #define SW_SHOWMINNOACTIVE 7 > #define SW_SHOWNA 8 > #define SW_RESTORE 9 > #define SW_SHOWDEFAULT 10 > #define SW_FORCEMINIMIZE 11 > > local lnHWND, lpwndpl > lpwndpl = chr(4*3+8*2+4*4)+replicate(chr(0),4*3+8*2+4*4-1) > SetForegroundWindow( m.tnHWND ) > if ( GetWindowPlacement(m.tnHWND, @lpwndpl) # 0 ) and ; > inlist(asc(substr(m.lpwndpl, 4+4+1, 1)), ; > SW_SHOWMINIMIZED, SW_MINIMIZE, SW_SHOWMINNOACTIVE, SW_FORCEMINIMIZE) > Win32ShowWindow(m.tnHWND, SW_RESTORE) > endif >>