En un dbgrid
Hola a todos y todas,
En un DBGRID cuando llego a la ultima columna en lugar pasar a la proxima linea lo que hace es ocultar la anterior.
Esto es lo que hago:
if Key = #13 then
if not (ActiveControl is TDBGrid) then begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
end
else if (ActiveControl is TDBGrid) then
with TDBGrid(ActiveControl) do
if selectedindex < (fieldcount -1) then
selectedindex := selectedindex +1
else
selectedindex := 0;
Que he dejado de hacer.
Gracias anticipadas,
Alcides
Rep.Dom.
|