Графический режим, с поддержкой мышки и клавы, Fpc Опции

[Bokul]

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

Как я пытаюсь работать с мышой:

 
  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 килобайт ) Кол-во скачиваний: 516

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

[Bokul]

(последний параграф)

Кое-какие вещи уже описывались, если есть что-то что интересует больше десятка людей

Действительно, большой аудитории заинтересованной в этом пока нет, но мы сделаем почву чтобы она появилась.

кто приходит хотят программу на TP, потому что "именно на TP у него будут принимать", а делать просто так, чтобы было, не очень-то охота

А те кто остаются встречаются с проблемой нехватки информации о FPC. Обычно на TP программируют люди, которым программирование ** не надо или которые еще не попробовали FPC, но достаточно хорошо знают TP. Так для последних и надо сделать.

и этого нельзя найти в доках - можно и написать...

В доках есть, наверно, все (ну почти все), но если тема не стандартная, то я думаю человек обрадуется найти немного примеров на русском.

Что именно ты хочешь чтобы было в FAQ-е?

Продолжить уже начатую тобой Altair-ом работу, создать отдельный раздел. Ну пока можно ограничиться составлением списка вопросов. Если хочешь можно создать тему, где все это обговорим?