TStringGrid: How to move to next column hitting the enter key??

[jshand2010]

i have just entered a new cell and put info in that cell, how do i move to the next cell to the right by pressing the enter key??

thanks guys?

[Blaazen]

If you have [goEditing] in Options then property AutoAdvance := aaRight will do the job (it is default). If you don't use goEditing, you will have to manage it yourself in OnKeyDown or OnKeyUp event. I don't know if StringGrid has some special public method for this but it is easy:

Code: [Select]

if Key = VK_RETURN then
  with (Sender as TStringGrid) do
    Col := Col + 1;+ skip to next row somehow. 

[jshand2010]

hi there,

i actually found this worked:

procedure Tfproductmanager.sgKeyPress(Sender: TObject; var Key: char);
begin
  if (Key=#13) then begin
    with (Sender as TStringGrid) do begin
      col:=col+1;
    end;
  end;
end;

and i also diabled the goRowSelect as well

thanks heaps

[Bart]

procedure Tfproductmanager.sgKeyPress(Sender: TObject; var Key: char);
begin
  if (Key=#13) then begin
    with (Sender as TStringGrid) do begin
      col:=col+1;
    end;
  end;
end;

This will crash on right most column.
AutoAdvance is specifically made for this purpose. No need to re-invent the wheel (and introduce new bugs).

Bart

[Blaazen]

@ Bart
I tested and it never crash on right most column (no matter if it is a classic grid or grid made of columns). The AutoAdvance does not work on readonly grid (i.e. when goEditing is False - I don't know if jshand2010 has readonly grid or not). I tested with Laz. trunk.

[Bart]

@ Bart
I tested and it never crash on right most column (no matter if it is a classic grid or grid made of columns).

Hey, that's unexpected...

The AutoAdvance does not work on readonly grid

Yes, that's a valid comment.
Did not think of that.

Bart