Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ создание меню с помощью мыши

Автор: Tima1989 30.11.2006 14:49

у меня есть процедура меню:

procedure menu;
var gd,gm:integer;
begin
gd:=0;
initgraph(gd,gm,'c:\turbo\');
rectangle(250,200,350,220);
outtextxy(287,205,'ввод');
end;

и главная программа:
begin
gd:=0;
initgraph(gd,gm,'c:\turbo\');
if graphresult<>grok then writeln('error') else
if ( initmouse=true ) then begin
menu;
showmouse;
if (buttonpressed=1) and (mousein(250,200,350,220)=true)
then <запуск процедуры>
end;
readln;
end.

Модуль для работы с мышью я взял с FAQ, мне нужно чтобы при наведении на описанный в процедуре меню прямоугольник, загружалась процедура, допустим ввода. Подскажите что я делаю не так...не работает!
М
Ставь теги!! Привык, чтоб за тебя делали??.. Lapp


Автор: lapp 30.11.2006 15:23

Ты проверяешь нажатие кнопки один раз в самом начале работы программы. Сомневаюсь, чтобы к тому времени ты успел подвести мышь к прямоугольнику и нажать..
Устрой проверку в цикле и выходи по нажатию. Потом обрабатывай это событие..

Автор: Tima1989 30.11.2006 16:08

если у кого-ниб. есть пример работы мышки с меню, скиньте плз.

Автор: volvo 30.11.2006 16:25

Поиск по слову "mouse" или по слову "мышь" тебя уже не устраивает?

Автор: Tima1989 30.11.2006 16:29

Цитата(volvo @ 30.11.2006 12:25) *

Поиск по слову "mouse" или по слову "мышь" тебя уже не устраивает?

уже искал, но конкретного примера работы с меню не нашел...

Автор: volvo 30.11.2006 16:44

Например, тут был: http://forum.pascal.net.ru/index.php?s=&showtopic=3222&view=findpost&p=28959 ?

Автор: Tima1989 30.11.2006 16:50

Цитата(volvo @ 30.11.2006 12:44) *

Например, тут был: http://forum.pascal.net.ru/index.php?s=&showtopic=3222&view=findpost&p=28959 ?

был=) так и не понял ничего, ладно спасибо за помощь.