Algo mas sobre DBGrid !!!

[Ledian_Fdez]

Hola amigos:

¿Cómo podré hacer que al dar enter sobre un DBGrid este situe el focus en la celda que le sigue a la derecha?

Salu2
Ledian

[krlosrp]

Prueba con esto.

procedure Tform1.Enter(Sender: TObject; var Key: Char);
begin
if (Key = #13) and (ActiveControl is = TEdit) or (ActiveControl isTDBEdit) then
begin
Key := #0;
SelectNext(ActiveControl, GetKeyState(VK_SHIFT) and $80 = 0, True);
end
else if (ActiveControl is TDBGrid) then
if Key= #9 then {Con Tab salimos del grid hacia delante }
SelectNext(ActiveControl, true, True)
else
with TDBGrid(ActiveControl) do
if selectedindex < (fieldcount -1) then
selectedindex := selectedindex +1
else
selectedindex := 0;
end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
Enter(Self,Key);
end;

[Ledian_Fdez]

Mil gracias amigo pues resolví simplemente con esto:

Código Delphi [-]
procedure TAnalisisForm.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = Chr(13) then
    DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1;
end;

Salu2
Ledian

[nikata]

Hola amigos

¿como podria juntar celdas de un dbgrid para poder escribir un texto, dependiendo de la posicion donde me encuentre?
He consiguido pintar las celdas, pero no escribir.
en el evento DBGrid1DrawColumnCell tengo puesto lo siguiente:
dbgrid1.Canvas.Textout(rect.Left+ Font.Size,rect.Top,'hola que tal');
solo me escribe en la primera celda. 'hol'

Salu2
Nikata