DBGRID saltar un campo ReadOnly

[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.