En un dbgrid

alcides · #1 10-02-2005

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.

roman · #2 10-02-2005

Cita:

Empezado por alcides

Que he dejado de hacer.

Pues justamente eso, pasar a la siguiente línea:

Código Delphi [-]if selectedindex < (fieldcount -1) then
  selectedindex := selectedindex +1
else
begin
  selectedindex := 0;
  DataSource.DataSet.Next;
end;

Por cierto, he visto que has formateado el código en tu mensaje usando etiquetas [b]. Te comento que puedes encerrar todo el código entre etiquetas [delphi] lo cual dara formato automáticamente al código sin necesidad de poner etiquetas en cada palabra reservada. Además con esto se preservarán las indentaciones.

// Saludos

alcides · #3 10-02-2005

Gracias roman,

Por el DBGRID y por la recomendacion de la etiquetas [delphi].

Alcides
Rep.dom.