Ver Mensaje Individual
  #3  
Antiguo 20-08-2013
koalasoft koalasoft is offline
Miembro
 
Registrado: oct 2004
Ubicación: Tenosique Tabasco
Posts: 86
Reputación: 20
koalasoft Va por buen camino
Continuando con este detalle ..

Lo anterior esta bien .. lo que no habia notado es el detalle de ...

Recordaran que en el DBGRIG puedes personalizarlo para que solo se pueda ver ciertas columnas de la tabla, bueno requiero esa opción. Tengo el siguiente código para que al momento de seleccionar la fila de esa columna personalizada (DBgrid.Column[0]) en mi caso .. al seleccionar esta celda el dato de alli sea reflejado en una Edit.

Código Delphi [-]

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
 with TDBGrid(Sender) do
  begin
    if SelectedRows.IndexOf(DataSource.Dataset.Bookmark) >= 0 then
      begin Canvas.Brush.Color := clPurple;   // Defines un color al seleccionar la Celda
       Edit1.Text := Dbgrid1.SelectedField.Text; // Muetra la Celda Selecionada en un Edit
      end;
  end;
end;


Con el DBgrid sin usar columnas personalizadas por ejemplo de 10 campos solo quiero se vea 1 campo, cuando le doy al al editr de columnas el codigo mencionado ya no me muestra en el Edit1 la celda seleccionada.

Faltará algo ? gracias !! ..
Responder Con Cita