Enter

[PAVEL315]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
vk_return: button3.Click;
end
end;

В чём ошибка??? Клавишей Enter Button3 не click!!!
Пробовал и так:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
vk_return: begin
button3.SetFocus;
button3.Click;
edit4.SetFocus;
end
end;
end;

Всё равно не прёт!!! Помогите пожалуйста!!!

[PAVEL315]

О!!! До меня дошло!!! Первое не прёт, так как у мну выделен Edit, а Enter в нём - сами знаете что! А вот со вторым - мне непонятно!?! Или надо в Edit отслеживать нажатие Enter, а затем нажимать Button???

[n@sok]

А свойство KeyPreview у формы в true установлено?

[mutabor]

Button3Click(Self);

[PAVEL315]

2 n@sok
Поподробнее можНО???
mutator
Спасибо, ща попробуем

[PAVEL315]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
vk_return:button3Click(Self);
end;
end;

Не прёт...

[mutabor]

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Это я, кнопка 1');
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 13 then Button1Click(Self);
end;

[n@sok]

События от клавиатуры всегда приходять на элемент, на котором установлен фокус. Для того, чтобы и сама форма их видела и предназначено свойство KeyPreview. Установив его в true будут обрабатываться события OnKeyDown, OnKeyUp и OnKeyPress самой формы, а не только элемента под фокусом.