Wer hat hierfür eine Erklärung:
Delphi-Quellcode:
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if ord (key) = VK_RETURN then begin
if StringGrid1.Col = 1 then
StringGrid1.Col := 4;
if StringGrid1.Col = 4 then begin
showmessage ('A '+IntToStr (StringGrid1.row));
StringGrid1.row := StringGrid1.row + 1;
showmessage ('B '+IntToStr (StringGrid1.row));
StringGrid1.col := 1;
end;
end;
end;
Das Grid spinnt etwas. Deshalb habe ich mir zweimal die Row anzeigen lassen. Das erste mal ist sie 1. Nachdem sie um 1 erhöht wurde steht sie nicht etwa auf 2 sondern immer noch auf 1.