Auto focus a checkbox from a dialog ON INIT

[Antonio Linares]

Code: Select all  Expand view

#include "Fivewin.ch"

#define WM_SYSKEYDOWN      0x0104

Function TestCheck
    LOCAL oDlg
 
    LOCAL oChk, lChk, nChk := 0
    LOCAL oChk2, lChk2, nChk2 := 0
 
    DEFINE DIALOG oDlg
 
    @ 0, 1 CHECKBOX oChk VAR lChk OF oDlg
    @ 1.2, 1 CHECKBOX oChk2 VAR lChk2 OF oDlg
 
    @ 2, 1 BUTTON "&Close" ACTION oDlg:End()
 
    ACTIVATE DIALOG oDlg CENTER  ;
       ON INIT oChk:PostMsg( WM_SYSKEYDOWN, 0, 2 ** 29 )
 
return nil
 

[Antonio Linares]

http://msdn.microsoft.com/en-us/library/ms646286(v=vs.85).aspx

lParam
The repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag, as shown in the following table.

...
29 The context code. The value is 1 if the ALT key is down while the key is pressed; it is 0 if the WM_SYSKEYDOWN message is posted to the active window because no window has the keyboard focus.

This way we simulate a pressed ALT

[Enrico Maria Giordano]

It doesn't work here. I always used

Code: Select all  Expand view

oDlg:bStart = { || oChk2:SetFocus() }

It works fine.

EMG

[Antonio Linares]

XP and Win7 differences again ?