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

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

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

Опции

Tima1989

30.11.2006 10:49

Сообщение #1

Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация:

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

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