Как в графическом режиме можно работать с клавиатурой?

@Azazello7 · Регистрация: 08.03.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте, прошу подсказать мне: как в графическом режиме можно работать с клавиатурой? если подключить библиотеку crt, появляется два окна - одно в графическом режиме, другое в текстовом. А нажатие клавиши отслеживается только в текстовом... вот код программы:

Pascal

uses crt, graph;
 
var
keyMenu:integer;
driver,mode,error:integer;
 
procedure OutputMenu;
var i:integer;
begin
 
  Line(random(100),100,200,random(200));
end;
 
begin
  driver:=detect;
  InitGraph(driver,mode,'');
 
  keyMenu:=1;
  OutputMenu;
 
  repeat
    if keyPressed then
    begin
      case readkey of
        #72:
          if keyMenu>1 then
          begin
            dec(keyMenu);
            OutputMenu;
          end;
        #80:
          if keyMenu<5 then
          begin
            inc(keyMenu);
            OutputMenu;
          end;
      end;
    end;
  until false;
 
end.

@Puporev · 06.11.2011, 10:09

Вместо crt подключить wincrt.

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.11.2011, 10:09	2
	Вместо crt подключить wincrt. 0

Опции темы