[fpc-pascal]Ummmm... anyone know why this doesn't work...

L D Blake ldblake at sympatico.ca
Wed Jul 23 04:17:57 CEST 2003


Ok, 3 checkboxes defined on a small window on win2000...


    s := 'Start processing when loaded';
    OToy[1] := createwindow('Button',Cstr(S,cpt),ws_tabstop or
                  ws_child or ws_visible or bs_autocheckbox,
                  10,15,185,20,Ohandle,1,mdrProg,nil);
    s := 'Exit when done';
    OToy[2] := createwindow('Button',Cstr(S,cpt),ws_tabstop or
                  ws_child or ws_visible or bs_autocheckbox,
                  10,35,180,20,Ohandle,2,mdrProg,nil);
    s := 'Make noise when done';
    OToy[3] := createwindow('Button',Cstr(S,cpt),ws_tabstop or
                  ws_child or ws_visible or bs_autocheckbox,
                  10,55,180,20,Ohandle,3,mdrProg,nil);


Cstr is a pascal to c string converter routine that takes a normal pascal
string (S in this case) and hands the winAPI a pointer to a null terminated
buffer (cpt)... tested and working elsewhere as well so that's not the
problem.

The little app is up and going, error free, but for the life or me I can't get
the ws_tabstop function to work... When the app loads nobody has focus and I
can hit the tab key all day and nothing happens...

Why can't I tab between these controls?

-----
 L D Blake





More information about the fpc-pascal mailing list