"Две" onMouseMove у одного компонента. Как?

[chandrasecar]

Здравствуйте.

Существует процедура onMouseMove у объекта Image1. В ней очень большой код, настолько что выполнение его отстает от действий пользователя, одним словом подтормаживает. Возникла необходимость разгрузить данный код, вынести часть кода (в котором вся проблема) в другую процедуру, которая будет переодически выполнятся (как onMouseMove пока пользователь двигает мышкой), при чем одновременно с основной процедурой onMouseMove. Как бы две процедуры onMouseMove у одного компонента.
Каким образом можно решить этот вопрос?

Экспериментировал с Таймером, но это не дало желаемых результатов.
Задумался о создании Image2 и вписать этот код туда, и вызывать процедуру Image2MouseMove в Image1MouseMove, но не знаю на сколько это рационально и как вызывать одну процедуру через другую...

Заранее благодарен!

[mihali4]

В ней очень большой код, настолько что выполнение его отстает от действий пользователя, одним словом подтормаживает

У вас компьютер отстает от действий пользователя? Да вы феномен какой-то!

как вызывать одну процедуру через другую

procedure TForm1.Procedure1(Sender: TObject);
begin
Procedure2(self);
end;

procedure TForm1.Procedure2(Sender: TObject);
begin
Procedure3(self);
end;
...

Ну хоть какую-нибудь книжку по Дельфи почитайте, умоляю... Ну хотя бы начните читать!

[xkor]

Просто создание дополнительной процедуры никак не скажется на времени выполнения...
В вашем случае скорее всего следует использовать второй поток в котором выполнять "проблемную" часть кода, НО тут есть пара моментов: к компонентам лучше в дополнительном потоке не обращаться так как они не расчитаны на работу в нескольких потоках, ну а если надо всётаки работать с компонентами в обоих потоках делать это надо осторожно

[xkor]

Сообщение от mihali4

У вас компьютер отстает от действий пользователя? Да вы феномен какой-то!

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

Сообщение от mihali4

Ну хоть какую-нибудь книжку по Дельфи почитайте, умоляю... Ну хотя бы начните читать!

Зачем читать книги? На форумах есть всё что нужно! Да и статей в инете полно...

[mihali4]

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

Кто ж такие процедуры вешает на OnMouseMove?!

[xkor]

новички не знающие как часто она вызывается)

[mutabor]

chandrasecar, резче двигайте мышью, процедура будет реже вызываться )))

[mihali4]

Нет, ну если уж приспичило, можно ввести критерий. Допустим, процедура вызывается, если мышь прошла после предыдущего вызова не менее, чем 10 пикселов по горизонтали и/или 10 по вертикали...
А потоки не спасут. (если кто понимает принципы организации многозадачности)

[chandrasecar]

Благодарю, xkor! Потоки - это интересно. Если не сложно, подскажите, как создать два параллельных потока, которые будут порождаться событием Image1.onMouseMove?
Заранее благодарен!