Запретить минимизацию дизайнера

Badiboy

Тут уже задавали этот вопрос в разделе FR3, но по скольку ответа нет -- спрошу еще раз.

Использую в программе в runtime дизайнер FR. Модальное окно. Если нажать кнопку Minimize, то ВСЁ окно программы сворачивается в одну панельку внизу. Хуже того: в эту панельку ткнуть и развернуть программу обратно НЕ ПОЛУЧАЕТСЯ: панелька не тыкается. Еще хуже программа пропадает даже из списка задач в диспетчера задач, ее можно снять только из списка процессов.

Как запретить кнопку минимизации, или другим каким-нибудь способом прикрыть это дело? В исходники лезть не предлагать: я хочу иметь нормальный, обновляемый FR чтобы каждый раз при обновлении с этим не геморроиться.

xlaalaa

Для интеграции в окно дизайнера своих каких то обработчиков можно использовать событие TFrxDesigner.OnShow. Можно в своем коде подписаться на это событие. Sender преобразовать к типу TfrxDesignerForm. Получите ссылку на окно дизайнера. По ссылке на форму окна дизайнера, можно изменить параметры окна, динамически переназначить свою обработку событий и т.д.

Таким образом можно не менять исходный код FastReport, а некоторые поправки к работе окна диайнера создавать в своем коде.

Badiboy

Большое спасибо за совет, идея понятна.

Но что-то не прокатило. Причем странно как-то. Написал следующее:

procedure TdmMain.desReportShow(Sender: TObject);
begin
  (Sender as TfrxDesignerForm).BorderIcons :=
   (Sender as TfrxDesignerForm).BorderIcons -
   [biMinimize];
end;

При этом при вызове:

dmMain.desReport.DesignReport;

получил:
1) Ошибку:

написал:

"Cannot change Visible in OnShow or OnHide."

2) Кнопка отрубилась!

Уже почти хорошо. Как ошибку теперь убрать?

Badiboy

Up, извините. Очень нужно.

-=Den=-

Самый простой вариант открыть frxDesgn.dfm в среде (исходники FR не обязательны) и добавить в object frxDesignerForm: TfrxDesignerForm
св-во BorderIcons = [biSystemMenu, biMaximize]. Сохранить, пересобрать приложение.