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.

[Robert_G]

Klappt bei mir einwandfrei
1. Zelle markiert & [Enter] gedrückt ->
Message 1 "A1"
Message 2 "B2"

Ist doch vollkommen richtig...

[Hansa]

Das sollte so richtig sein, aber bei mir ist es trotzdem nicht so. Ich hänge mal das Projekt hier dran.

[negaH]

Hi Hansa,

schau dir mal dein OnSelectCell Event genauer an. Am besten den Code deaktivieren und CanSelect := True setzen. Ich vermute mal das dies die Ursache für einen Seiteneffekt ist.

Gruß Hagen