Нека типка Ентер ради као картица у Делпхи апликацијама

click fraud protection

Знамо да, притиском на тастер Таб, фокус улаза прелази на следећу контролу, а тастер Схифт-Таб на претходни у редоследу таблица обрасца. Када радите са Виндовс апликације, неки корисници интуитивно очекују да се тастер Ентер понаша попут тастера Таб.

Примјери у наставку написани су уз претпоставку да на обрасцу не постоји задати гумб. Када ваш образац садржи дугме чије је основно својство постављено на Труе, притисните Ентер ат време извођења извршава било који код који се налази у онЦлицк обрађивачу догађаја дугмета.

~~~~~~~~~~~~~~~~~~~~~~~~~
поступак ТФорм1.Едит1КеиПресс (пошиљалац: ТОбјецт; вар Кеи: Цхар);
започети
Ако је тастер = # 13, тада почните
Ако је ХиВорд (ГетКеиСтате (ВК_СХИФТ)) <> 0, тада
СелецтНект (Пошиљалац као ТВинЦонтрол, Фалсе, Труе)
друго
СелецтНект (Пошиљалац као ТВинЦонтрол, Труе, Труе);
Кључ: = # 0
крај;
крај;
~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~
процедура ТФорм1.ДБГрид1КеиПресс (Пошиљалац: ТОбјецт; вар Кеи: Цхар);
започети
Ако је тастер = # 13, тада почните
Ако ХиВорд (ГетКеиСтате (ВК_СХИФТ)) <> 0 тада започните

instagram viewer

са (Пошиљалац као ТДБГрид)
ако је изабраниндек> 0, тада
селецтединдек: = селецтединдек - 1
започети
Извор података. ДатаСет. Пре;
селецтединдек: = број поља - 1;
крај;
крај другог почети
са (Пошиљалац као ТДБГрид)
ако је изабраниндек селецтединдек: = одабранииндек + 1
започети
Извор података. ДатаСет. Следећи;
селецтединдек: = 0;
крај;
крај;
Кључ: = # 0
крај;
крај;
~~~~~~~~~~~~~~~~~~~~~~~~~

instagram story viewer