суббота, 27 апреля 2013 г.

Ещё правки VCL (18)


procedure TApplication.ModalStarted;
begin
  Restore; {V} //поднятие модального при свернутом окне все раскорячивает
  Inc(FModalLevel);
  if (FModalLevel = 1) and Assigned(FOnModalBegin) then
    FOnModalBegin(Self);
end;

Комментариев нет:

Отправить комментарий