создание меню с помощью мыши, укажите плз. ошибку. Опции

[Tima1989]

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

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]

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

[Tima1989]

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

[volvo]

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

[Tima1989]

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

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

[volvo]

Например, тут был: Кнопки ?

[Tima1989]

Например, тут был: Кнопки ?

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