отследить нажатие Enter

[Dmitriy90]

Нужно сделать так чтобы после нажатия enter текст из edit попадал в одну из ячеек stringgrid.
вот код который я написал:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
   
    procedure edit1Keydown(Sender: TObject; var Key: word);
    procedure Button2Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s:string;


implementation

{$R *.dfm}

procedure TForm1.edit1keydown(Sender: TObject; var Key: word);

begin

 if key=VK_RETURN then
  begin
   edit1.SetFocus;
   stringgrid1.cells[1,1]:=edit1.text;

  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

не могу понять почему программа не видит нажатия enter. в свойствах формы keypreview выставлено на true. Скажите что я не так делаю

[EUGY]

Поставили свойство keypreview равным true, ловите в событии TForm1.FormKeyDown.

[Dmitriy90]

не ловится. когда keypreview в false и пытаюсь ловить в TForm1.Edi1KeyDown тоже ничего не происходит. пробовал даже записать значение edit1 в строковую переменную объявленную глобально. переменная пуста. программа просто не заходит в процедуру так как не видит нажатие кнопки.

[Прик]

У меня "ловится" и в ячейку стринггрида попадает содержимое Edit.
Значение KeyPreview формы - по-барабану. И при True, и при False одинаково.
А по-другому и быть не может, т.к. это свойство отвечает только за получение формы событий от клавы (True - прежде активного компонента) или не будет получать (False). Активный компонент всегда получает клавиатурные события.

[Dmitriy90]

Прик
Ваш пример работает, спасибо. Вот только я не вижу разницы между моим кодом и вашим. Буду писать на основе вашего исходника)

[EUGY]

Активный компонент всегда получает клавиатурные события.

А табуляция?

[Прик]

Да, Tab получает только форма, но и это можно обойти, о чем вы, разумеется, хорошо осведомлены.
Но в теме речь не о клавише Tab.