| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Мышь в консольном приложении [D7]

Donpager ©   (2003-01-17 19:10:00) 

Пожайлуста подскажите как в консольном приложении сделать доступной мышь.
Я попытался воткнуть кусок кода из шестого паскаля, но ничего кроме зависания не получил...
----
Заранне спасибо за совет.

---

Donpager   (2003-01-19 15:29:00) [1]

... конечно спасибо за совет... :)
но в хелпе Я так ни одного пимера на енту тему не нашёл... :(
поискал в других местах и нашёл следующее:

program MouseConsole;
{$APPTYPE CONSOLE}
uses Windows, SysUtils;

function GetConInputHandle : THandle;
begin
Result := GetStdHandle(STD_INPUT_HANDLE)
end;

var
IBuff : TInputRecord;
IEvent : DWord;
Continue : Bool;

begin
Continue := false;
repeat
ReadConsoleInput(GetConInputHandle, IBuff, 1, IEvent);
case IBuff.EventType of
KEY_EVENT : begin
If ((IBuff.Event.KeyEvent.bKeyDown = True) AND
(IBuff.Event.KeyEvent.wVirtualKeyCode = VK_ESCAPE))
then
Continue := true;
end;
_MOUSE_EVENT : with IBuff.Event.MouseEvent.dwMousePosition do
Writeln("Mouse coord: X= ", X, " ","Y= ", Y);
end;
until Continue;
end.



(Это на случай если ещё кому надо)

---

Anatoly Podgoretsky   (2003-01-17 20:43:00) [2]

Смотреть справку Console Application, там несколько десятков функций для поддержки консоли

---

Наверх