DBGRID saltar un campo ReadOnly

[andrestsas]

Hola a todos.
Mi duda es sobre un DBGRID
Quisiera saber cual seria la manera correcta, estando en tiempo de ejecucion, al desplazarme sobre el DBGRID con teclas de direccion, que si a un campo lo he marcado con ReadOnly=True, salte al campo siguiente, ya que si bien no lo deja escribir, posiciona el cursor como si lo dejara.

desde ya gracias por sua atención. Andres.-

[andres1569]

Hola Andrés:

Éste código que te pongo hace eso que pides. Se trata de interceptar el evento OnColEnter del DBGrid, que se produce cuando se cambia de columna (es decir, se cambia de campo en un DBGrid). Accediendo a la propiedad SelectedField del DBGrid vemos si el campo "actual" es ReadOnly. Si lo es, cambiamos de columna asignando el valor correspondiente a la propiedad SelectedIndex (que devuelve el nº de columna). Verás que hay unas variables de por medio: CurIndex es una variable global (definida dentro de la unit del formulario, no global al programa) donde se almacena el índice (SelectedIndex) de la columna correspondiente cada vez que se cambia de columna. Cada vez que se cambia de columna comparamos el índice actual con ese valor, para saber si el usuario está navegando de izquierda a derecha o al revés, de modo que al entrar en la columna "conflictiva" sepamos si activar la columna anterior o la posterior. La variable local declarada dentro del procedimiento, AntIndex, se encarga de almacenar el valor anterior tomado de CurIndex, antes de que se reasigne éste (bueno, tú mismo puedes rastrear el código). Lo he probado y funciona bien incluso si hay dos campos ReadOnly consecutivos.

var
  Form1: TForm1;
  CurIndex : Integer;

implementation

{$R *.DFM}

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
var
  AntIndex : Integer;
begin
  AntIndex := CurIndex;
  with DBGrid1 do
  begin
    CurIndex := SelectedIndex;
    if (SelectedField <> nil) AND (SelectedField.ReadOnly) then
    begin
      if AntIndex > CurIndex then
        if ValidFieldIndex(CurIndex - 1) then SelectedIndex := CurIndex - 1
        else
      else if ValidFieldIndex(CurIndex + 1) then SelectedIndex := CurIndex + 1
    end;
  end;
end;

Una sugerencia, si defines las columnas en tiempo de diseño, puedes marcar el color de columna a otro diferente, el más indicado suele ser clInfoBk, de modo que el usuario vea claramente por qué no puede acceder a dicha columna que es ReadOnly. Si no defines las columnas en tiempo de diseño, también puedes hacer esto interceptando el evento OnDrawColumnCell y cambiando ahí "a mano" dicho color. Aunque esto quizás ya es tema de otro hilo.

[andrestsas]

Andres1569, desde ya agradecido por tu respuesta y tu claridad al explicar este evento.

Pero te digo que no me funciona, lo sigue editando, seguro que me esta faltando algo. te digo que en el campo del DBGRID en ReadOnly lo puse en True, pero cuando evalua si (selectedindex <> Nil And SelectedField.ReadOnly ) es como que no se cumple una de las condiciones. Es mas prove eliminando {SelectedField.ReadOnly} y ahi si funciona. es como si reanonly=faso.
Que estare haciendo mal?
Desde ya agradecido por tu interes. Andres.-

[andres1569]

Hola de nuevo:

En el ejemplo que te puse, la comprobación de si es ReadOnly la efectúa sobre la propiedad SelectedField del DBGrid. Esta propiedad obtiene el valor a partir del DataSet al que está enlazada, de modo que funciona si el campo está definido como ReadOnly en la Tabla/Consulta correspondiente. Si no quieres cambiarlo allí sino sólo a nivel del Grid, entonces habría que hacer la comprobación sobre la propiedad Columns, tal como indica el código que te pongo corregido:

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
var
  AntIndex : Integer;
begin
  AntIndex := CurIndex;
  with DBGrid1 do
  begin
    CurIndex := SelectedIndex;

    if ((SelectedField <> nil) AND (SelectedField.ReadOnly)) OR
       ((Columns[CurIndex] <> nil) AND (Columns[CurIndex].ReadOnly)) then

    begin
      if AntIndex > CurIndex then
        if ValidFieldIndex(CurIndex - 1) then SelectedIndex := CurIndex - 1
        else
      else if ValidFieldIndex(CurIndex + 1) then SelectedIndex := CurIndex + 1
    end;
  end;
end;

Ahora hacemos ambas comprobaciones, puesto que si es ReadOnly en el Dataset, tampoco se podrá editar aunque no lo esté a nivel de columnas en el DBGrid.