у меня есть процедура меню:
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.
М | Ставь теги!! Привык, чтоб за тебя делали??.. Lapp |
Ты проверяешь нажатие кнопки один раз в самом начале работы программы. Сомневаюсь, чтобы к тому времени ты успел подвести мышь к прямоугольнику и нажать..
Устрой проверку в цикле и выходи по нажатию. Потом обрабатывай это событие..
если у кого-ниб. есть пример работы мышки с меню, скиньте плз.
Поиск по слову "mouse" или по слову "мышь" тебя уже не устраивает?
Например, тут был: http://forum.pascal.net.ru/index.php?s=&showtopic=3222&view=findpost&p=28959 ?