Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2007, 22:14   #1
Небесный
Зелень
Форумчанин
 
Аватар для Небесный
 
Регистрация: 03.02.2007
Сообщений: 302
По умолчанию Есть менюшка. Нужно сделать чтобы курсор был самой строкой.

Короче дело такое.

Есть менюшка. Нужно сделать чтобы курсор был самой строкой.
Тоесть вся менюшка зеленая, когда курсор стоит в строчке - строчка красная. и стрелочкой пермещаться вверх в низ. И естественно нажав энтер в отдельном окошке идет работа - например рачет факторила.

Еще вот забыл, курсор должен быть всегда в рабочем окне, а не в менюшке.

А, еще все это на Паскале, вроде раздел Паскаля, смотрю и о Делфи говорят сдесь.
Небесный вне форума Ответить с цитированием
Старый 29.09.2007, 23:05   #2
KORT
Вот я и
Форумчанин
 
Аватар для KORT
 
Регистрация: 07.04.2007
Сообщений: 501
Радость

Вот кажетсяв этом примере есьт, то что тебе надо...
Вложения
Тип файла: rar LABA10-14.rar (2.3 Кб, 28 просмотров)
Исходники программ - http:\\www.kort.3dn.ru
KORT вне форума Ответить с цитированием
Старый 30.09.2007, 15:09   #3
Небесный
Зелень
Форумчанин
 
Аватар для Небесный
 
Регистрация: 03.02.2007
Сообщений: 302
По умолчанию

К сожалению не совсем так.

А, вообе KORT спасибо за ответ.
Небесный вне форума Ответить с цитированием
Старый 30.09.2007, 15:10   #4
KORT
Вот я и
Форумчанин
 
Аватар для KORT
 
Регистрация: 07.04.2007
Сообщений: 501
По умолчанию

Всегда пожалуйста...
Исходники программ - http:\\www.kort.3dn.ru
KORT вне форума Ответить с цитированием
Старый 02.10.2007, 20:35   #5
Небесный
Зелень
Форумчанин
 
Аватар для Небесный
 
Регистрация: 03.02.2007
Сообщений: 302
По умолчанию

Короче у меня появилась идея, как это можно сделать, но я столкнулся с одной проблемой.
Не получаеться читать код клавиши. С буквами все в порядке, а вот когда ставлю стрелочки - не идет.

Цитата:
Program Menu;
Uses crt;
Var
key:char;
Procedure MyMenu;
begin
writeln(' 1 Џг*Єв.');
writeln(' 2 Џг*Єв.');
writeln(' 3 Џг*Єв.');
write(' 4 Џг*Єв.');
end;
Procedure MyWind(x1,y1,x2,y2,col:integer);
begin
Window(x1,y1,x2,y2);
TextBackGround(col);
clrscr;
end;
begin
key:=readkey;
if key=#38 then
MyWind(35,12,44,15,2)
else MyWind(35,12,44,15,4);
MyMenu;
readln;
end.
if key=#38 then
Пробовал if ord(key)=38 then
Тоже не идет. Странно, вот когда ставлю любой код букв - все работает, только код стрелочек, не идет. Кстати аналогично не идут и клавиши Home, Insert, End и с той группы.

Последний раз редактировалось Небесный; 02.10.2007 в 21:05.
Небесный вне форума Ответить с цитированием
Старый 03.10.2007, 19:46   #6
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 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
Пример старый... Там прога... Есть и менюшка
Я не маюсь бездельем, я от него тащусь!
Tayfun вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что нужно сделать, чтобы форма была поверх панели задач? 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