скрыть скрыть
Delphi FAQ - Часто задаваемые вопросы | Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа || ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = Chr(VK_RETURN) then begin Perform(WM_NEXTDLGCTL,0,0); key:= #0; end; end;