Algun motivo por el cual no se ejecute GetEditText, en un grid

[Livey]

Hola de nuevo
Estoy trabajando con Delphi 7, con un grid cuyas columnas son check, el cual se encuentra en un tabsheet, pero se me esta presentando el problema de que no ejecuta el evento GetEditText.
Me prodrian orientar a saber que puede afectar para que no se ejecute el evento, en el la forma como tal tengo keypreview en true, no se si eso puede ayudar en algo.

[Livey]

Empezado por Livey

Hola de nuevo
Estoy trabajando con Delphi 7, con un grid cuyas columnas son check, el cual se encuentra en un tabsheet, pero se me esta presentando el problema de que no ejecuta el evento GetEditText.
Me prodrian orientar a saber que puede afectar para que no se ejecute el evento, en el la forma como tal tengo keypreview en true, no se si eso puede ayudar en algo.

Pregunto.
Acaso el evento no se ejecuta si las columnas son check?
Por que si la columna es para editar texto si se ejecuta.

[ecfisa]

Hola Livey.

¿ Redefiniste el método en la clase TStringGrid para hacer pública la función ?

Código Delphi [-]
uses Grids;

type
  TStringGrid = class(Grids.TStringGrid)
  public
     function GetEditText(ACol,ARow: Longint):string; override;
  end;
 ....

implementation

function TStringGrid.GetEditText(ACol, ARow: Integer): string;
begin
  Result := InHerited GetEditText(ACol,ARow);
end;
...

Saludos.

[Livey]

Recuerda que utilizo Delphi 7

gracias.

[ecfisa]

Empezado por Livey

Recuerda que utilizo Delphi 7

gracias.

No lo sabía, pero no te preocupes... yo también

Dame un minuto y te pongo el ejemplo completo.

[ecfisa]

Aca está.

Código Delphi [-]
unit Unit1;

interface

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

type
  TstringGrid = class(Grids.TStringGrid)
  public
    function GetEditText(ACol,ARow: Longint):string; override;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

{ TstringGrid }
function TstringGrid.GetEditText(ACol, ARow: Integer): string;
begin
  Result := Inherited GetEditText(ACol,ARow);
end;

{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[1,1]:= 'Prueba de GetEditText';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(StringGrid1.GetEditText(1,1));
end;
end.

Funciona perfecto (Delphi 7).

Saludos.