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 - [EMAIL PROTECTED]
}http://lists.freepascal.org/mailman/listinfo/fpc-pascal
}
------
Ingmar
------
"I occasionally make the mistake of having social contact with other human
beings."
_______________________________________________
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
