TAB -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.118.120.109]

Компиляторы Паскаля , FAQ Паскаля (содержание)

В этом разделе можно создавать темы, которые относятся к поколению 32-битных компиляторов.
Здесь решаются вопросы портирования кода из старого доброго Турбо Паскаля в FPC, TMT, VP, GPC компиляторы, а также особенностей программирования на них для Windows/Linux и других ОС.
Указывайте тип компилятора, его версию, а также платформу (Windows/Linux/..) компиляции, другими словами, Target.

Модераторы: volvo877

Новое голосование

TAB

alexsa	Сообщ. #1 , 27.06.11, 08:26
Junior Профиль · PM Поощрения: 1 Dgm Рейтинг (т): 1	Всем привет! Нужно организовать обработку по клавише TAB. На код клавиши #09 программа не реагирует. Если пишу #13 - переходим по Enter. Может быть для клавиши TAB существует еще какой-нибудь код?

Polinom2686	Сообщ. #2 , 27.06.11, 09:18
Senior Member Профиль · PM Поощрения: 5 Dgm Рейтинг (т): 13	Цитата alexsa @ 27.06.11, 08:26 Может быть для клавиши TAB существует еще какой-нибудь код? Да нет, код вроде #9.

volvo877

Сообщ. #3 , 27.06.11, 09:30

Moderator

Профиль · PM

Поощрения: 7 Dgm

Рейтинг (т): 878

Цитата alexsa @ 27.06.11, 08:26

Нужно организовать обработку по клавише TAB

Обработку чего?

Цитата alexsa @ 27.06.11, 08:26

На код клавиши #09 программа не реагирует.

Не реагирует где? Кода ты не показал ни строчки, зато говоришь, что что-то там где-то там на что-то там не реагирует... Какого ты ответа ожидаешь?

P.S. Вообще-то Tab используется для перехода между контролами, не надо на него навешивать чуждый функционал...

alexsa

Сообщ. #4 , 27.06.11, 09:44

Junior

Профиль · PM

Поощрения: 1 Dgm

Рейтинг (т): 1

Цитата volvo877

Не реагирует где? Кода ты не показал ни строчки, зато говоришь, что что-то там где-то там на что-то там не реагирует... Какого ты ответа ожидаешь?

procedure TfrmTovars.EditNewKeyPress(Sender: TObject; var Key: char);

var

n:byte;

begin

if Key=#09 then

begin

Сообщение отредактировано: alexsa - 27.06.11, 10:02

volvo877	Сообщ. #5 , 27.06.11, 10:50
Moderator Профиль · PM Поощрения: 7 Dgm Рейтинг (т): 878	procedure TfrmTovars.EditNewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_TAB then ShowMessage('Oops'); end; Разницу OnKeyPress/OnKeyDown чувствуешь?

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0229 ] [ 16 queries used ] [ Generated: 28.04.24, 03:44 GMT ]