Stringgrid: Funktion deaktivieren Enter -> nächste Spalte

[cletep]

Hallo,

ich bin's noch mal. Ich habe mich jetzt schon einige Zeit mit folgender Prozedur rumgeschlagen:

Code: Alles auswählen

procedure TformNotendurchschnittsrechner.StrGrdModulplanKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_RETURN) and (StrGrdModulplan.Row<10) then //stringgrid hat 10 Zeilen, daher die zweite Bedingung
  StrGrdModulplan.Row:= StrGrdModulplan.Row+1;
end;       

Sie soll bewirken, dass man beim Enterdrücken in die nächste Zeile springt. Allerdings findet ein diagonaler Sprung statt (eine Zeile nach unten und eine nach rechts), da durch Enterdrücken generell eine Zeile nach rechts gesprungen wird. Wie kann ich das nach rechts springen unterbinden?

Vielen Dank im Voraus!

[Michl]

Am besten einfach im Objektinspektor die Eigenschaft "AutoAdvance" auf "aaDown" stellen.

[cletep]

danke, funktioniert.