Когда инициализируешь графический режим с помощью initgraph, создается новое окно, а весь ввод с клавиатуры остается в старом - консольном. В результате, работать с клавиатурой не получается. Простенький пример:
Код: Выделить всё
uses graph, crt;
var driver, mode : integer;
begin
driver := vga;
mode := 2;
initgraph(driver, mode, '');
repeat
setcolor(random(15));
moveto(random(400),random(400));
lineto(random(400),random(400));
until keypressed;
closegraph;
end.
Программа завершается только если нажать что-нибудь в консоли. Можно как-нибудь сделать так, чтобы клавиатура работала непосредственно в окне с графикой?
Добавлено спустя 5 минут 58 секунд:
А, сам разобрался уже, спасибо.
Ответ тут: http://community.freepascal.org:10000/faq#win-graph
