Dear All,

Have any one found this TSbutton problem as me? When I use Alt+s for "&Save" the problem is the valid on TGET is skiped. It means any function on TGET Valid do nothing. It is my big problem right now because I use a lot TSbutton in my program.

Example

include 'Fivewin.ch'

include 'Tsbutton.ch'

Static oDlg

Procedure Main
local oGet, oBtn, cVar
cVar := 0

DEFINE DIALOG oDlg FROM 0, 0 TO 10, 30 TITLE 'Test TSbutton'

@ 1, 1 GET oGet VAR cVar SIZE 30,12 PIXEL Valid (cVar>0)

@ 40,50 SBUTTON oBtn PROMPT '&Test' ;
SIZE 30, 20 ;
PIXEL ;
ACTION MsgInfo(' Test ')

ACTIVATE DIALOG oDlg CENTER

return

Dear All,

If who use this classes and have got the same problem with me. Pls change this line

METHOD GetDlgCode( nLastKey ) CLASS TSBUTTON
// Remark this two lines
* ::SendMsg( FM_CLICK )
// Add this line instead
PostMessage( ::oWnd:oCtlFocus:hWnd, FM_CLICK )
return If( ::lActive, DLGC_WANTALLKEYS, Nil )

Best regards,
Dutch