Lave Enter om til Tab

Der findes sikkert en enklere metode:

    if Key=#13 then
  begin
      if DBGrid1.SelectedIndex<DBGrid1.FieldCount-1 then
            DBGrid1.SelectedIndex:=DBGrid1.SelectedIndex+1
    else
    begin
            DBGrid1.DataSource.DataSet.Next;
      DBGrid1.SelectedIndex:=0;
    end;
        Key := #0
  end;

Det ser da ud til at være en løsning.
Så det afkræver et svar :-)

ok, svar.

DBGrid er meget anderledes at arbejde med end når man er vant til M$ Access :-)
Lige nu sidder jeg og prøver at få den til at highlighte selected row, men kan kun få den til at gøre det med et enkelt felt.

procedure TfrmTransactions.grdTransactionsDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if qryTransaction.RecNo Mod 2 = 0 then
    grdTransactions.Canvas.Brush.Color := clSilver
  else
    grdTransactions.Canvas.Brush.Color := clDkGray;
  if (gdSelected in State) then
    grdTransactions.Canvas.Brush.Color := clHighlight;
  grdTransactions.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Det 'sjove' er at jeg ikke kan se forskel på de linier der angiver farver. Men de første giver ganske fint 2 forskellige farvede linier, men den sidste farver kun et felt.  Jeg undres. Men jeg finder nok de vise sten en dag :-)

Jeg har aldrig brugt DBGrid da jeg syntes den er underlig, så jeg bruger altid ListView i stedet og fylder data i den manuelt.

OK - men det må være lidt besværligt at rette data 'online' så.

Det kræver lidt flere linier kode men så har man 100% styr på hvad der sker og hvornår det sker. Jeg har aldrig brugt nogen af DB komponenterne.

OK