Текущий архив: 2002.09.09;
Скачать: CL | DM;
Вниз
console-mouse Найти похожие ветки
← →
Fant (2002-08-14 18:02) [0]Как мыша в console application сделать?
← →
Malder © (2002-08-14 20:55) [1]А нафига оно тамо ?
← →
DiamondShark © (2002-08-14 22:07) [2]var
hStdIn: THandle;
Mode: DWORD;
Event: INPUT_RECORD;
EventCount: DWORD;
begin
hStdIn := GetStdHandle(STD_INPUT_HANDLE);
GetConsoleMode(hStdIn, Mode);
Mode := Mode or ENABLE_MOUSE_INPUT;
SetConsoleMode(hStdIn, Mode);
repeat
ReadConsoleInput(hStdIn, Event, 1, EventCount);
case Event.Eventtype of
KEY_EVENT: // Обработка клавиши ;
MOUSE_EVENT: // Обработка мыши;
end;
until ExitCondition;
end;
Подробнее в хелпе.
Страницы: 1 вся ветка
Текущий архив: 2002.09.09;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.01 c
