FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
DBGRID saltar un campo ReadOnly
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.- |
#2
|
|||
|
|||
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. Código:
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;
__________________
Guía de Estilo |
#3
|
|||
|
|||
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.- |
#4
|
|||
|
|||
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: Código:
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;
__________________
Guía de Estilo |
|
|
|