Cursor en una celda dbgrid

[ArtPortEsp]

Buen dia amigos;

espero se encuentren bien; estoy buscando alguna forma para que al editar el contenido de una celda en un dbgrid, el cursor de edición vaya hasta la posición inicial del texto y no se seleccione todo el contenido de la celda.

He estado buscando en la red, pero hasta el momento no he tenido suerte; alguno de uds. lo ha hecho o conoce algún lugar en donde pueda buscar?

Gracias de antemano.

[Casimiro Notevi]

¿Esto no te sirvió?

[ArtPortEsp]

trate de ponerlo en diferentes eventos: Oncellclick; BeforePost, etc. y no, no pude lograrlo con ese código, hace lo mismo, al editar una celda selecciona todo el contenido y el cursor se sitúa al final

[Casimiro Notevi]

He hecho una sencilla prueba y funciona bien poniendo el código en el "CellClick" del dbgrid:

Código Delphi [-]
DBGrid1.EditorMode:= True;
DBGrid1.Perform(EM_SCROLLCARET, 0, 0);

[ecfisa]

Hola.

Intenta también con lo siguiente en el evento OnCellClick:

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

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  DBGrid1.EditorMode := True;
  TDBGridEx(DBGrid1).InplaceEditor.SelStart := 0;
  TDBGridEx(DBGrid1).InplaceEditor.SelLength := 0;
end;

Salida:


Saludos

[ArtPortEsp]

Empezado por Casimiro Notevi

He hecho una sencilla prueba y funciona bien poniendo el código en el "CellClick" del dbgrid:

Código Delphi [-]
DBGrid1.EditorMode:= True;
DBGrid1.Perform(EM_SCROLLCARET, 0, 0);

Es correcto, si quita la selección, pero sigue dejando el cursor al final del texto

[ArtPortEsp]

Empezado por ecfisa

Hola.

Intenta también con lo siguiente en el evento OnCellClick:
[delphi]

type
TDBGridEx = class(TDbGrid);

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

Gridincisos: TCRDBGrid;

[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