Здравствуйте Паха, Вы писали:

П>Привет Всем!
П>Столкнулся вот с такой проблемкой: стандартная навигация по компонентам в Windows это нажатие <Tab>. У меня на форме много полей ввода TEdit и мне необходимо сделать переход и навигацию между ними по клавишам <стрелка вниз> <стрелка вверх> <Enter>. Причём в промежутке между Tedit-ами могут встретиться и другие компоненты.
П>Заранее благодарен.
Работает нормально!


procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.KeyPreview := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Direct: Boolean;
begin
Case Key of
VK_UP: begin
Direct := False;
end;
VK_DOWN: begin
Direct := True;
end;
end;
if Sender is TWinControl then begin
FindNextControl(Form1.ActiveControl,Direct,False,False).SetFocus;
end;
Key := 0;
end;