Блог программистов



F.A.Q.Pblog

1й год Форума программистов 2006-2007

Аналог ClrScr & KeyPressed в Delphi

Аналог ClrScr & KeyPressed в Delphi
День добрый!
Если кто знает помогите пожалуста!
Как в консольном приложении в Delphi реализовать
такие простые вещи как:
ClrScr т.е. очистка экрана
keypresssed : bool; т.е. нажатие кнопки
например
repeat until keypressed;
В старом добром паскале задумываться об этом не приходилось!
А в Delphi для для замены keypressed нашел только громозкие процедуры и функции с использованием:
ReadConsoleInput(GetStdHandle(STD_OUTPUT_HANDLE), IBuff, 1, IEvent);
GetNumberOfConsoleInputEvents(ConsoleInput, NumberOfEvents)
а для CLS такая процедура но она у меня не чистит экран:
procedure Cls;
var
MaxX, MaxY : Word;
Coord : TCoord;
NOAW : DWord;
begin
// Получаем дескриптор вывода (output)
ConsoleInput := GetStdHandle(STD_INPUT_HANDLE);
// Получаем максимальные размеры окна
Coord := GetLargestConsoleWindowSize(ConsoleInput);
MaxX := Coord.X;
MaxY := Coord.Y;
// Очистка экрана - заполнение его пробелами
Coord.X := 0;
Coord.Y := 0;
FillConsoleOutputCharacter(ConsoleInput, ' ', MaxX * MaxY, Coord, NOAW);
// Установка курсора в координаты X, Y :
Coord.X := 0;
Coord.Y := 0;
SetConsoleCursorPosition(ConsoleInput, Coord);
end;
НЕУЖЕЛИ НЕТ БОЛЕЕ ПОСТОГО ВАРИАНТА ?


Просмотр ответов:
http://programmersforum.ru/showthread.php?t=449

Posted in Общие вопросы Delphi by Alar



Другие вопросы:
Системный журнал
OnKeyPress
Изменение размера изображения, Crop image to fit height & width
Спрайты
Выравнивание текста в Delphi



<<<Назад    Вперёд>>>