Pasar un campo calculado a un campo del mismo DbGrid

[freelance]

para usar Enter en vez de Tab en los TEdit:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if TForm(Sender).ActiveControl is TEdit then
if key = #13 then begin
key := #0; // como si no pulsasemos nada
Perform(WM_NEXTDLGCTL, 0, 0); // saltamos al siguiente control
end;
end;

Por cierto: Es necesario poner a True la propiedad KeyPreview del Form.


para usar Enter en vez de Tab para cambiar de columna en los TStringGrid

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
key := #0;
with TStringGrid(Sender) do
if col+1 < colCount then
col := col+1;
end;
inherited;
end;

en un TDBGrid:

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
key := #0;
with TDBGrid(Sender) do
if SelectedIndex+1 < FieldCount then
SelectedIndex := SelectedIndex+1;
end;
inherited;
end;


espero haberte ayudado ...

[maravert]

Hola, Gracias por responderme, entonces quiere decir que:

¿ Cuando se crea un campo calculado este se añade "automaticamente" al registro de la tabla? y si es asi entonces porque no aparece este campo al visualizar la tabla.

La idea de grabar este importe en la tabla, es que de alli los datos seràn exportados a otra tabla que maneja otro programa y el campo importe lo utiliza para la informaciòn de facturas.

Para este caso si necesito pasar el campo calculado a otro campo, si es que me lo pudes explicar màs te lo agradeceria mucho.


Perdon por preguntar lo que para muchos es obvio, pero no lo sè


Gracias

Cordialmente

Alemar