DECLARE INTEGER SetForegroundWindow IN user32 INTEGER hwndthis would basically make the form i pass the hwnd function to the forewindow?
procedure ActivateWindow lparameters tnHwnd declare short SetForegroundWindow in win32API integer nHwnd declare short ShowWindow in WIN32API alias Win32ShowWindow ; integer hwnd, ; integer nCmdShow SetForegroundWindow( m.tnHWND )and it worked in activating my window..im not sure i should go with this...but i dont like using code i cant understand :(
>>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 >>