Cursor en una celda dbgrid

[ecfisa]

Empezado por ArtPortEsp

Tengo problemas con esta linea, mi Grid se llama GridIncisos y esta declarado asi:

Gridincisos: TCRDBGrid;

Hola.

¿ La clase del grid no es TDBGrid ?

Saludos

Edito: veo que es un componente de Devart...

[ArtPortEsp]

No es de devart, es un componente algo viejo, el desarrollo esta en Delphi 7.

[ecfisa]

Hola de nuevo.

No siendo un componente estandar no sé si funcione, pero por las dudas, intenta:

Código Delphi [-]
type
  TDBGridEx = class(TCRDBGrid);
...

Saludos

[ArtPortEsp]

Vale, intente algo semejante, pero creo que estoy poniendo esas líneas en donde no es.

Si pongo la declaración : TDBGridEx = class(TCRDBGrid); en la sección Type de la unidad, el compilador me regresa un error por el signo "="

Si cambio el signo "=" por ":" el mensaje que me sale es sobre si quiero quitar la declaración por que no hay un componente asociado a ella.

Si la pongo en el evento :

procedure TFcappol.GridincisosCellClick(Column: TColumn);
type  xgrid = class(TCRDBGRid);
begin
     Gridincisos.EditorMode := True;

Me manda un error que dice : Local class : interface or object types not allowed

EDITO : finalmente pude pensar con claridad atraves de este maldito virus que me trae mal, ya funciono!, muchas, pero de verdad muchas gracias!

[ecfisa]

Hola.

No sé que solución encontraste pero otra opción que probé con TDBGrid y funciona ante el evento OnCellClick es:

Código Delphi [-]
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  DBGrid1.EditorMode:= True;
  keybd_event(VK_HOME, 0, 0, 0);
  keybd_event(VK_HOME, 0, KEYEVENTF_KEYUP, 0);
end;

Saludos