seltsames Stringgrid Verhalten

[Hansa]

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.