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 |
