console-mouse

← →
Fant (2002-08-14 18:02) [0]

Как мыша в console application сделать?

← →
Malder © (2002-08-14 20:55) [1]

А нафига оно тамо ?

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;

Подробнее в хелпе.

console-mouse Найти похожие ветки