|
espero que sirva
Mira buscando ayuda para mi programa de facturacion e inventario que me esta rompiendo la cabeza he encontrado esto que creo que te puede servir lo he modificado un poco pero funciona:
es el codigo de usar la tecla enter como tab dentro de un TBDgrid ,Creo que de esa forma puedes cambiar el orden del tab cambiando el selectindex:
procedure Ttabla.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then { si es la tecla <enter> }
if not (ActiveControl is TDBGrid) then { si no es un TDBGrid }
begin
Key := #0; { nos comemos la tecla }
Perform(WM_NEXTDLGCTL, 0, 0); { vamos al siguiente control }
end
else
if (ActiveControl is TDBGrid) then { si es un TDBGrid }
with TDBGrid(ActiveControl) do
if selectedindex < (fieldcount -1) then
selectedindex := selectedindex +1
else
selectedindex := 0;
end; Lo he probado y funciona bien entonces la idea es cambiar la incrementacion del selectedindex , bueno ahi esta . Ya que me estoy volviendo loco. Saludos
Si tienes un tiempo y me puedes ayudar con lo de la facturacion e inventario te lo agradeceria. Gracias
|