Статьи Королевства Дельфи
Для решения данной проблемы необходимо
Для решения данной проблемы необходимо активировать автоматически обновление ActionList, для этого в DLL определим процедуру.
| procedure ApplicationHM; begin Application.HandleMessage; Application.ProcessMessages; end; |
укажем ее в операторе exports, что бы основное приложение могло его вызвать.
Вызываться данная процедура будет в тот момент, когда приложение становится в режим ожидания (событие OnIdle), например ожидание ввода данных от пользователя. Для этого в основной форме приложения определим процедуру
| procedure TfrmMain.ApplicationIdle(Sender: TObject; var Done: Boolean); begin ApplicationHM; Application.ProcessMessages; end; |
и в момент создания формы переопределим событие Application.OnIdle
| procedure TfrmMain.FormCreate(Sender: TObject); begin Application.OnIdle := ApplicationIdle; end; |
Скачать пример: (13K.)
Специально для
