|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.09.2007, 22:14 | #1 |
Зелень
Форумчанин
Регистрация: 03.02.2007
Сообщений: 302
|
Есть менюшка. Нужно сделать чтобы курсор был самой строкой.
Короче дело такое.
Есть менюшка. Нужно сделать чтобы курсор был самой строкой. Тоесть вся менюшка зеленая, когда курсор стоит в строчке - строчка красная. и стрелочкой пермещаться вверх в низ. И естественно нажав энтер в отдельном окошке идет работа - например рачет факторила. Еще вот забыл, курсор должен быть всегда в рабочем окне, а не в менюшке. А, еще все это на Паскале, вроде раздел Паскаля, смотрю и о Делфи говорят сдесь. |
29.09.2007, 23:05 | #2 |
Вот я и
Форумчанин
Регистрация: 07.04.2007
Сообщений: 501
|
Вот кажетсяв этом примере есьт, то что тебе надо...
Исходники программ - http:\\www.kort.3dn.ru
|
30.09.2007, 15:09 | #3 |
Зелень
Форумчанин
Регистрация: 03.02.2007
Сообщений: 302
|
|
30.09.2007, 15:10 | #4 |
Вот я и
Форумчанин
Регистрация: 07.04.2007
Сообщений: 501
|
Всегда пожалуйста...
Исходники программ - http:\\www.kort.3dn.ru
|
02.10.2007, 20:35 | #5 | |
Зелень
Форумчанин
Регистрация: 03.02.2007
Сообщений: 302
|
Короче у меня появилась идея, как это можно сделать, но я столкнулся с одной проблемой.
Не получаеться читать код клавиши. С буквами все в порядке, а вот когда ставлю стрелочки - не идет. Цитата:
Пробовал if ord(key)=38 then Тоже не идет. Странно, вот когда ставлю любой код букв - все работает, только код стрелочек, не идет. Кстати аналогично не идут и клавиши Home, Insert, End и с той группы. Последний раз редактировалось Небесный; 02.10.2007 в 21:05. |
|
03.10.2007, 19:46 | #6 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Коды клавиатуры
Вверх chr(72); Вниз chr(80); общий вид менюшки: repeat ch:=readkey; case ch of chr(72):begin punkt:=punkt-1;y:=y-10; end; chr(80):begin punkt:=punkt+1;y:=y+10; end; end; {punkt - в дальнейшем пригодиться для того что бы узнать позицию курсора к примеру case punkt of 1:..... 2:..... 3:..... end; y - Координата по ось ОY твоей стрелочки} until ch=chr(27){Esc} Ну это общий вид менюшки... общая структура, вот пример, может поможит! TF.rar Пример старый... Там прога... Есть и менюшка Я не маюсь бездельем, я от него тащусь!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Что нужно сделать, чтобы форма была поверх панели задач? | Andr | Общие вопросы Delphi | 11 | 25.02.2011 22:06 |
Помогите пожалуйста решить задачу!Очень нужно у самой не получается! | Lilu Monechi | Помощь студентам | 2 | 19.05.2008 19:38 |
Есть таблица - В ней три поля int, char, char нужно чтобы данные заносились в таблицу Mysql | Muahahaha | PHP | 8 | 27.03.2008 11:17 |
Какие изменения в системе нужно сделать чтобы установить ОС Linux как вторую операцио | Ga-sergey | Помощь студентам | 7 | 09.04.2007 13:06 |
что нужно сделать, чтобы при нажатии кнопки запускалась процедура | mager | Общие вопросы Delphi | 15 | 19.11.2006 15:02 |