Enter вместо Tab

← →
AlexBut (2003-05-27 07:53) [0]

Здравствуйте! Вопросик в следующем: есть ли в Delphi какая-нибудь опция, чтобы перемещаться между полями в форме при помощи Enter, а не Tab? Пользователи, которые работают с 1С и ACCESS меня уже достали этим вопросом. Или мне придется обрабатывать нажатие Enter для каждого поля каждой формы (В этом случае с катушек можно съехать)!!!

← →
Arch-vile © (2003-05-27 08:04) [1]

нет, надо поставить свойство KeyPreview у формы в True, а там и обрабатывать это нажатие. ИМХО, обрабатывать лучше в OnKeyDown.
код Ентера - vk_enter

← →
Lord Warlock © (2003-05-27 08:10) [2]

> AlexBut (27.05.03 07:53)

http://delphimaster.net/view/1-1053578338/

> Arch-vile © (27.05.03 08:04)

код - VK_RETURN :)

← →
Arch-vile © (2003-05-27 08:56) [3]

и точно :) это уже пятый раз так. написал в коде - не компилится. :( что ж такое? лезем в справку. АЙ %?*%:*, это же не то! исправим. компилится

Сделаю свойство Keypreview в True и обработчике OnKeyPress создай такой код
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin //Переходим к следующему элементу при нажатиии Enter if (Key = #13) then begin Key:=#0; Perform(WM_NEXTDLGCTL,0,0); end; end;
Удачи!

Ставиш у формы KeyPreview=True, и в обработчике OnKeyPress пишеш:
If Key=#13 then
begin
Key:=#0;
SelectNext(ActiveControl,True,True)
end;

Enter вместо Tab Найти похожие ветки