Stand alone it works fine. However, if I put it into my program, and call it with a button, it behaves incorrectly.
It does not stop at the Activate. Instead, it displays the browse window and immediately goes to the MsgInfo.
This is a simple reproduction of a failing segment in a larger routine. Please note the details after the code.
Also, all browses already established in the program work fine, and there is no duplication of the code here within any other part of the program.
- Code: Select all Expand view
function new8()
local oWndT, oBrwT
use c:\asw9s\eglskt shared
DEFINE WINDOW oWndT
@0,0 xbrowse oBrwT ;
columns "KITCOD","KITYR" ;
HEADERS "Kit Code", "Year" ;
of oWndT ;
DATASOURCE alias() ;
ON DBLCLICK( oWndT:end() )
oBrwT:CreateFromCode()
oWnd:oClient:= oBrwT
ACTIVATE WINDOW oWndT
msgInfo("Done")
RETURN nil
Using:
FWH 14.09
Harbour ( for MSFT )
Microsoft Visual Studio 2013
Thanks for any ideas you may have.