Текущий архив: 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.011 c