- Код: Выделить всё
repeat
{ Delphi calls Application.HandleMessage
But HandleMessage processes all pending events and then calls idle,
which will wait for new messages. Under Win32 there is always a next
message, so it works there. The LCL is OS independent, and so it uses
a better way: }
try
WidgetSet.AppProcessMessages; // process all events
except
if Application.CaptureExceptions then
Application.HandleException(Self)
else
raise;
end;
if Application.Terminated then
ModalResult := mrCancel;
if ModalResult <> 0 then
begin
CloseModal;
if ModalResult<>0 then break;
end;
Application.Idle(true);
until False;
что это и как с ним бороться?
Добавлено спустя 24 минуты 53 секунды:
если удалить TActionList со всеми акциями с F2, то ошибка тоже пропадает (TToolBar содержит кнопки, к которым привязаны акции).