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

[Ingmar Tulva]

Tabbing through controls is handled in DefDialogProc() when 1) dialog is
modal or 2) you call IsDialogMessage() explicitly. I have no idea how to
implement this when the buttons are inserted into a window of another
class (when DefDialogProc is not the window procedure); certainly it is
possible somehow. An option is to trap keypress messages and do the
tabbing yourself.

hope this helps,
Ingmar

On Tue, 22 Jul 2003, L D Blake wrote:

}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
}
}
}_______________________________________________
}fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
}http://lists.freepascal.org/mailman/listinfo/fpc-pascal
}

------

Ingmar

------

"I occasionally make the mistake of having social contact with other human
beings."