Помощь - Поиск - Пользователи - Календарь
Полная версия: Работа в графике
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Katrinka
Как в паскале в графическом режиме сделать так, чтобы програма не реагировала на нажатие клавиш, отличных от некоторых определенных клавиш?
(в графич. режиме выводится меню и слева рисуется прямоугольник. При нажатии на кнопку меню, программа выводит в этом прямоугольнике некоторый текст, затем пользователь вводит некоторый другой тект. Так вот, если после этого нажать какую-нибудь клавишу кроме стрелок, то прога начинает очень глючить. Что делать?)
volvo
Показать программу...
Bokul
Цитата
Как в паскале в графическом режиме сделать так, чтобы програма не реагировала на нажатие клавиш, отличных от некоторых определенных клавиш?

Не читать их... smile.gif
Хочешь больше - выкладывай код. wink.gif
Katrinka
Вот процедура, считывающая ввод пользователем:


function get_menu(start:integer;
const menu_str:array of string;
const size:integer):integer; far;
var _stop:boolean;
begin
_stop:=false;
repeat
show_menu(start,menu_str,size);
case readkey of
#0:
case readkey of
#72: {vverh}
if start>1 then dec(start);
#80: {vniz}
if start<size then inc(start);
end;
#13: {enter}
_stop:=true;
end;
until _stop;
get_menu:=start;
end;
volvo
Это ничего не дает... По крайней мере показывай еще, где и как
Цитата
пользователь вводит некоторый другой тект
, ибо проблема возникает именно после этого...
Katrinka
Процедура, осуществляющая ввод-вывод

procedure vvod_vivod(var a,b,epsilon:real); far;
var st11,st22,st33:string;
cod1,cod2,cod3:integer; j:real;
begin
moveto(23*d+tw,15*d);
OutText('Vvedite predeli integrirovania');

moveto(12*d+tw,16*d);
OutText('a= ');
repeat
moveto(11*d+tw,17*d);
st11:=Get_Input(11*d+tw,d*17);
until st11<>'';
val(st11,a,cod1);

moveto(11*d+tw,18*d);
OutText('b= ');
repeat
moveto(11*d+tw,19*d);
st22:=Get_Input(11*d+tw,d*19);
until st22<>'';
val(st22,b,cod2);

if a>b then
begin
j:=a; a:=b; b:=j;
end;
moveto(11*d+tw,21*d);
OutText('Vvedite tochnost');

moveto(11*d+tw,23*d);
OutText('epsilon= ');
repeat
moveto(11*d+tw,24*d);
st33:=Get_Input(11*d+tw,d*24);
until st33<>'';
val(st33,epsilon,cod3);


end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.