StringGrid

Question

StringGrid中如何实现：用回车键（Key = #13）实现（↓  VK_DOWN）的功能？
也就是说：回车后光标移到下一行,最好详细代码.

Answer 1

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
         if Key = VK_RETURN then
    Key :=  VK_DOWN;
end;

Answer 2

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    PostMessage(StringGrid1.Handle, WM_KEYDOWN, VK_DOWN, 0);
end;

Answer 3

procedure   TForm1.StringGrid1KeyDown(Sender:   TObject;   var   Key:   Word; 
    Shift:   TShiftState); 
begin 
                  if   Key   =   VK_RETURN   then 
        Key   :=     VK_DOWN; 
end; procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    PostMessage(StringGrid1.Handle, WM_KEYDOWN, VK_DOWN, 0);
end;这两种方法都可以的。