Obtener texto en DBGrid

[ecfisa]

Hola a todos, estoy trabado con un tema.
No encuentro propiedad o método que me permita obtener el texto ingresado en una celda de un DBGrid.

Algo así como con el DBEdit cuando interceptamos el evento OnSetText y obtenemos lo escrito en DBEdit.Text .

Ví, revisando en el foro un ejemplo con la propiedad protegida InPlaceEdit, redefiniendo la clase; pero esto no funciona al menos en delphi 7, puesto que me dice que dicha propiedad no existe en la clase base.

Muchas gracias por cualquier información.

[marcoszorrilla]

Prueba esto, a mi me funciona:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls;

type TDBGridPlus = Class(TDBGrid)
public
function GetEditText(ACol, ARow: Longint): string; override;
end;

type
  TForm1 = class(TForm)

    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    procedure DBGrid1CellClick(Column: TColumn);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


Function TDBGridPlus.GetEditText(ACol, ARow: Longint): string;
Begin
Result := InHerited GetEditText(ACol,ARow);
End;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
Label1.Caption := TDBGridPlus(DBGrid1).GetEditText(3,3);
end;

end.

Un Saludo.

[ecfisa]

Muchas gracias por tu pronta respuesta, estoy probando tu ejemplo Marcos, luego te comento la implementación.

[ecfisa]

Si funciona, tuve que trabajar un poco con la detección de teclas per funciona bien, gracias

[mongiel]

Que tal Ecfisa, me gustaria ver si me puedes hacer favor de ayudar en como resolviste el problema de encontrar las celdas y pasar los parametros en automatico en la funcion TDBGridPlus(DBGrid1).GetEditText(Colum,Fila);

Saludos.

[ecfisa]

Hola mongiel.

En realidad, tuve que hacer un poco de memoria sobre el caso...

No tuve necesidad de encontrar automáticamente fila y columna aquella vez,
pero probé un poco y este código parece funcionar:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   ShowMessage(TDBGridPlus(DBGrid1).GetEditText(Column.Index+1,Query1.RecNo));
end;

Nota: La columna la extraigo del parámetro 'Column' y la fila del registro seleccionado.

Saludos.

[mongiel]

Muchas gracias Ecfisa!! me funciono muy bien y nuevamente muchisimas gracias me sacaste de un gran apuro.