Validar/Grabar linea de un DBGrid con Enter

[jadelphi]

Hola colegas, en un dbgrid voy metiendo datos en una línea pasando de una columna a otra pulsando enter pero para grabar la línea tengo que pulsar la tecla "fecha abajo". ¿Cómo puedo sustituirla para poder validar la línea pulsando Enter?

Gracias.

Salu2.

[Casimiro Noteví]

Puedes poner en el evento keydown del grid si se ha pulsado la tecla 'enter' y si estás en la columna apropiada, algo parecido a esto:

 procedure Tform1.grArticulosKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 var	iCol : Integer;
 begin
 	if (key in [VK_RETURN,VK_DOWN,VK_UP]) then
 	begin
 		iCol := grArticulos.FocusedColumn;
 		if iCol = iLastColumn then
 			...
 			hacerloquesea
 			...
 	end;
 end;

[jadelphi]

Gracias colega pero no me sirve, me dice que FocusedColumn no definido, ¿será porque estoy usando Delphi 4 y esta versión no lo soporta ??

Pero de todas formas lo que yo quiero es no tener que llegar a pulsar la tecla flecha abajo (keydown) para nada, que con el Enter grabe la línea y pase a la línea de abajo.

Gracias.

Saludos.

[Casimiro Noteví]

pues facil, modifica un poco lo que te he puesto:

 procedure Tform1.grArticulosKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 var	iCol : Integer;
 begin
 	if key = VK_RETURN then
 	begin
 		iCol := TDrawgrid(grArticulos).Col;
 		//iCol := grArticulos.SelectedIndex;
 		//iCol := grArticulos.SelectedField.FieldNo;
 		if iCol = iLastColumn then
 			  ...hacerloquesea...
 	end;
 end;

[Casimiro Noteví]

y si no quieres que funcionen la teclas de flechas en el grid

procedure Tform1.grArticulosKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 var	iCol : Integer;
 begin
 	if (key in [VK_DOWN,VK_UP]) then
 		exit;
 
    if key = VK_RETURN then
    begin
 	 iCol := TDrawgrid(grArticulos).Col;
 	 //iCol := grArticulos.SelectedIndex;
 	 //iCol := grArticulos.SelectedField.FieldNo;
 	 if iCol = iLastColumn then
 			...hacerloquesea...
 	 end;
 end;