IPB
ЛогинПароль:

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Графический режим, с поддержкой мышки и клавы, Fpc
сообщение
Сообщение #1


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


Не знаю проблемы у меня или в модуле Wingraph или еще в чем-то, но не всегда получается отловить нажатие кнопки мыши, а после readkey графическое окно вообще перестает реагировать на другие события. sad.gif

Как я пытаюсь работать с мышой:
 
repeat
if PollMouseEvent(MEvent) then
begin
GetMouseEvent(MEvent);
MouseX:=MEvent.x; MouseY:=MEvent.y;
if (MouseX <> x0) or (MouseY <> y0) then
begin
x0:=MouseX; y0:=MouseY;
if (MEvent.action=MouseActionDown) or (keypressed) then
Arrow.StartNew
else
Arrow.ChangePosition(round(MouseX/step)*step,
round(MouseY/step)*step);
end;
Delay(1);
end;
until CloseGraphRequest;
CloseGraph;


Полный исходник: Прикрепленный файл  PolDevelop.rar ( 1.06 килобайт ) Кол-во скачиваний: 495

При каждом нажатии любой кнопки мыши шарик, который постоянно бегает за курсором, должен оставаться на том месте, где была нажата клавиша, но это происходит далеко не всегда sad.gif .
Если проблемы в коде укажите, пожалуйста, ошибку, в противном случае - подскажите другие модуле с такими же функциями или другие способы работы с мышой в граф. режиме. Отдельно интересует такая возможность используя WinApi.


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Bokul   Графический режим   30.12.2006 1:19
volvo   Погоди, а зачем PollMouseEvent? Насколько я помню,…   30.12.2006 3:13
Bokul   Эта функция проверяет есть ли новые события, а …   30.12.2006 3:39
volvo   Во-первых, я ничего просто не привожу, и если я на…   30.12.2006 3:46
Bokul   А можно поинтересоваться- почему стандартный модул…   30.12.2006 7:05
volvo   Ну, модуль Graph я тоже не знаю, зачем поддерживае…   30.12.2006 7:19
Bokul   Работает! :good: Можно ссылочку на полное …   30.12.2006 7:37
volvo   :blink: :blink: У тебя в папке "FPC\un…   30.12.2006 7:49
Bokul   Нет, мед - правильный, это у меня что-то неправиль…   30.12.2006 7:55
volvo   :yes2: Лучше всего - в виде "OpenGL Programmi…   30.12.2006 8:02
SKVOZNJAK   Тема обработки событий уже жевалась, и не на одном…   30.12.2006 22:40
Bokul   SKVOZNJAK, можешь чуть подробнее объяснить? Почему…   31.12.2006 12:34
SKVOZNJAK   Да, наверно никакой, так назвалось. И последний и …   3.01.2007 19:44
Bokul   Обижаешь. :) Нет, ты не угадал. А дело было т…   4.01.2007 11:35
volvo   Сообщение об ошибке - военная тайна? С твоих слов,…   4.01.2007 15:21
Bokul   Ухты, а я и не знал что их может быть так много…   4.01.2007 15:27
volvo   Как выяснить какая? :rolleyes: http://userpage.f…   4.01.2007 15:39
Bokul   :lol: Действительно, большой аудитории заин…   4.01.2007 23:28
Ozzя   А те кто остаются встречаются с проблемой нех…   11.01.2007 14:25
volvo   Создавай :)   4.01.2007 23:35
SKVOZNJAK   P.S. первому варианту можно давать любую bmp-шку…   5.01.2007 18:10
Bokul   Ozzя, а же о этом и писал..   12.01.2007 4:17


 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 7.12.2021 0:20
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name