Реализовать движение курсора по элементам подменю

@kivi94 · Регистрация: 09.12.2010

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста организовать дижение по подменю. Я сделала окно , строку меню и при нажатии допустим на file выпадает подменю, но перемещаться по нему не получается =( подменю я создаю с помощью константного массива, и каждое подменю пишу в отдельной процедуре.

Pascal

procedure mfile;
    var
     i:integer;
   begin
   write(' ');
   gotoxy(1,1);
   window(1,2,12,6);
   textcolor(1);
   textbackground(2);
   for i:=1 to 2 do
    writeln(pmen[i]);
end;

позже я вызываю её при нажатии enter...но как сделать чтобы по подменю можно было перемещать вниз и вверх?

@Puporev · 23.04.2011, 11:45

Посмотри этот пример.
https://www.cyberforum.ru/pascal/thread135004.html

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.04.2011, 11:45	2
	Посмотри этот пример. https://www.cyberforum.ru/pascal/thread135004.html 0