Hallo,
hiermit kann man bei Enter-Druck, immer in die nächste Feld springen, es werden alle der Reihe nach durchgegangen, und zwar immer von links nach rechts und dann immer die nächste Zeile, aus der letzten Zelle wird dann wieder in die erste gesprungen, den Teil kann man aber auch natürlich wieder ausbauen!
Delphi-Quellcode:
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
with StringGrid1 do
begin
if Col < ColCount -1 then //Nächste Spalte
Col := Col +1
else if Row < RowCount -1 then
begin //Nächste Zeile
Row := Row +1;
Col := 1;
end else
begin //Geh wieder an den Anfang des Grids
Row := 1;
Col := 1;
end;
end;
end;
end;
Grüsse, Daniel
