Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.09;
Скачать: CL | DM;

Вниз

Переход между компонентами?   Найти похожие ветки 

 
Автор333   (2004-12-22 14:13) [0]

В программе есть некоторое количество TEdit"ov и ComboBox"ov.
Как можно сделать переход между ними не Tab"om, а клавишами вверх, вниз, вправо, влево?


 
Александр Иванов ©   (2004-12-22 14:29) [1]

Сложность будет в определении компонента, который должен получить фокус. Но можно сформировать двумерный массив из компонентов и с ним уже все будет попроще. А там SetFocus...


 
Автор333   (2004-12-22 14:31) [2]

А можно увидеть маленький примерчик?


 
Александр Иванов ©   (2004-12-22 14:33) [3]

Если по всей идее, то он будет не маленький, а что именно вызывает интерес?


 
Автор333   (2004-12-22 14:40) [4]

Массив из компонентов и маленький примерчик с переходом между компонентами!


 
Stanislav ©   (2004-12-22 14:42) [5]

Можно проще.
ActionList->Action1.ShortCut=EnterСобытие:
Action1.OnexecuteОбработчик:windows.keybd_event(9,0,0,0);


 
Александр Иванов ©   (2004-12-22 14:45) [6]

Массив:

var Comps:array of array of TCustomForm;

Переход:

Comps[row,col].SetFocus;



Страницы: 1 вся ветка

Текущий архив: 2005.01.09;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.023 c
9-1095259567
wiz
2004-09-15 18:46
2005.01.09
Rust v0.2.5-alpha


4-1101195343
Sik
2004-11-23 10:35
2005.01.09
Электронная цифровая подпись


1-1103549241
Stanislav
2004-12-20 16:27
2005.01.09
OLE Container вывод объектов в новом окне


1-1103618080
paule
2004-12-21 11:34
2005.01.09
Проблема с переменной


1-1103702569
tradakad
2004-12-22 11:02
2005.01.09
динамическое добавление в ImageList





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский