При нажатии на клавишу Энтер курсор должен перейти в следующее поле, а оно никак (((

Общие вопросы: версии и диалекты, синтаксис языка, cтруктуры и типы данных (массивы, строки, списки...), обработка данных и т.д.
Ответить
Шнырь
Сообщения: 1
Зарегистрирован: 16 янв 2018, 19:43

16 янв 2018, 19:54

Всем добрый день. Занимаюсь самостоятельным изучением Delphi XE, столкнулся с таким вот событием.

procedure TForm3.Edit1KeyPress(Sender: TObject; var key: char);
begin
if key=#13 //Если нажата клавиша Enter
then Edit2.SetFocus; //То переместить курсор во второе поле
end;

Как бы что должна делать эта процедура я там написал, но при нажатии на Энтер просто слышен дыдын и курсор остается на месте, чего не так то? я же говорю если нажат Энтер(#13) то шуруй свой курсор в поле Edit2 (Edit2.SetFocus). Вроде бы и говорю с уважением, а оно воно что, не хочет чейт, как быть то?
Аватара пользователя
Duncon
Сообщения: 1974
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

17 янв 2018, 12:50

[syntax=Delphi]
key:=#0;
ActiveControl:=Edit2;
[/syntax]
[syntax=Delphi] [/syntax]
Ответить