Can EnterKey Move from one cell to another?

Roberty

Delphi Developer

Sun, 01 Jul 2001 03:00:00 GMT

Can EnterKey Move from one cell to another?

Hello,

I have posted this before but did not get any help hope someone can help
me.

I want my focused cell to MOVE DOWN ONE CELL when the Enter Key is
press, and always in edit mode when the cell is the currently selected
one. What I am doing now is set AlwaysShowEditor to True but it does
not
move down to the next cell when I press "enter" key. Can this be
achieved?

Thank you
Roberty

Peter Belo

Delphi Developer

Sun, 01 Jul 2001 03:00:00 GMT

Re:Can EnterKey Move from one cell to another?

Quote

> I have posted this before but did not get any help hope someone can help
> me.

> I want my focused cell to MOVE DOWN ONE CELL when the Enter Key is
> press, and always in edit mode when the cell is the currently selected
> one. What I am doing now is set AlwaysShowEditor to True but it does
> not
> move down to the next cell when I press "enter" key. Can this be
> achieved?

Easily. Attach a handler to the grids OnKeyPress event like this:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then begin
with sender as tstringgrid do begin
if row = rowcount-1 then
rowcount := rowcount + 1;
row := row+1;
end;
key := #0;
end;
end;

Peter Below (TeamB) 100113.1...@compuserve.com)
No e-mail responses, please, unless explicitely requested!

Robert

Delphi Developer

Mon, 02 Jul 2001 03:00:00 GMT

Re:Can EnterKey Move from one cell to another?

Thank YOU Peter! for your help. This is great..

Seeya.
Roberty

Quote

Peter Below wrote:
> > I have posted this before but did not get any help hope someone can
> help
> > me.

> > I want my focused cell to MOVE DOWN ONE CELL when the Enter Key is
> > press, and always in edit mode when the cell is the currently
> selected
> > one. What I am doing now is set AlwaysShowEditor to True but it
> does
> > not
> > move down to the next cell when I press "enter" key. Can this be
> > achieved?

> Easily. Attach a handler to the grids OnKeyPress event like this:

> procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
> begin
> if key = #13 then begin
> with sender as tstringgrid do begin
> if row = rowcount-1 then
> rowcount := rowcount + 1;
> row := row+1;
> end;
> key := #0;
> end;
> end;

> Peter Below (TeamB) 100113.1...@compuserve.com)
> No e-mail responses, please, unless explicitely requested!

Other Threads

1. Pressing Enterkey ->Next Cell in TStringGrid

2. TStringGrid : Enter should move input-cursor one cell below

3. Combine Excel Cells into one cell?

4. I want to merge cells as one cell in Excel using Delphi

5. Moving data from one Database to another one

6. Move control from one cell to other cell when press "Enter" Key

7. It's not bad canned meat...

8. Moving to Excel next cell

9. Moving to a cell in TStringGrid

10. Excel: Moving to the last used cell