Quick report. Что происходит при минимизации окна просмотра?

← →
alabama01 (2006-09-18 07:23) [0]

Здравствуйте.
Есть форма диалога, которая по кнопке ОК создает другую форму, на которой размещен quickrep:

procedure TFrepSalesDlg.btnOKClick(Sender: TObject);
begin
if not Assigned(FQrepSales) then
begin
(1) FQrepSales := TFQrepSales.Create(Self);
(2) FQrepSales := nil;
Self.Close;
end;
end;

Форма с QR, в нашем случае FQrepSales, при создании заполняет себя данными и делает QuickRep1.Preview. Если окно предпросмотра закрыть, тогда отрабатывает строка (2) и далее, если же нажать минимизировать окно предпросмотра, то оно вообще исчезает с экрана и код дальше не идет, то есть форма диалога не закрывается и можно еще раз нажать ОК и еще раз создать форму FQrepSales! При минимизации окна просмотра, каким-то образом FQrepSales становится nil. Как это побороть?
Можно ли отловить событие минимизации формы просмотра отчета?

← →
Johnmen © (2006-09-18 09:26) [1]

Ну, наверное, перед обниливанием надо бы сделать Free.
А чтобы в полной мере управлять окном предпросмотра, надо "нарисовать" своё...

← →
Германн © (2006-09-19 01:11) [2]

> если же нажать минимизировать окно предпросмотра, то оно
> вообще исчезает с экрана

Не совсем так! Оно сворачивается в "полоску над кнопкой Пуск". Где-то такую формулировку я видел на форуме недавно. Увидеть ее можно, минимизировав или закрыв все окна, которые перекрывают эту область.
Ну а правильное решение проблемы предложено в [1]. Своё окно Preview. Это не сложно, тем более автор QR сам довольно подробно описал как это сделать.

← →
alabama01 (2006-09-19 02:11) [3]

Спасибо за ответы. Буду рисовать свое окно просмотра. Тем более, что ничего другого не остается.

Quick report. Что происходит при минимизации окна просмотра? Найти похожие ветки