Edit и Button

[Михаил Юрьевич]

Подскажите вот такой вопрос:на форме Edit и Button
При открытии формы курсор стоит на Edit,как мне при
помощи стрелок на клаве фокус перекинуть на Button
А то после ввода цыфр в Edit нужно обработать события
кнопкой Enter,а она не риагирует.

[AlDelta]

В код, которым обрабатываются нажатия цифр, добавь обработку Enter'a. Если Enter - выполняешь нужные действия.

[Михаил Юрьевич]

Извините не совсем понял,если я в Edit ввожу цыфры а в кнопке их
обрабарываю,то надо что ,связать в кнопке OnClick с OnEnter ?

[MoonLit]

для примера:

procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Button1.SetFocus; // или любые другие действия
 case Key of
   '0'..'9': ;
   #8 : ;
 else Key :=Chr(0);
 end;
end;

ну, по крайней мере я так делаю...

а уже потом создавать событие на обработку введенных в Edit цифр (событие onClick)

[AlDelta]

То: Михаил Юрьевич

Событие OnEnter наступает в момент получения элементом фокуса. Это событие не наступает при переключениях между формами или между приложениями.
При переключениях между элементами, расположенными в разных контейнерах, например, на разных панелях, событие OnEnter сначала наступает для контейнера, а потом для содержащегося в нем элемента. Это противоположно последовательности событий OnExit которые при переключении на компонент другого контейнера наступают сначала для компонента, а потом для контейнера.

Дружите с стандартной справкой и справочниками

[Domovoy]

Поставь свойство Default=true у кнопки

[FaTaL]

Я вот так делаю:

procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9': ;
#8 : ;
#13: Button1.SetFocus;
else Key :=Chr(0);
end;
end;