QReport PrintPreview - как запретить?

← →
Юра (2003-01-23 15:11) [0]

Есть QReport, вызываю QReport.Preview. Далее минимизирую окно превью, снова кликаю на кнопку, которая вызывает QReport.Preview - получаю еще одно окно превью. Повторять можно до бесконечности. Пробовал сделать так:
if not(QuickReport.State in [qrPrepare, qrPreview, qrPrint, qrEdit]) then QuickReport.preview;
не помогает. Как запретить QReport"у выполнение превью, если один раз превью уже вызвано?

← →
gsu © (2003-01-23 15:13) [1]

не вызывай ???
AfterPreview есть, там что-нить присвой

← →
Юра (2003-01-23 15:16) [2]

Обязательно найдется кто-то, кто породит миллион этих окон, так что эту ситуацию нужно предусмотреть. С AfterPreview попробую.
Интересно, а почему мое условие не работает, это ошибка QReport или qrPreview - это какое-то еще состояние?

← →
Anatoly Podgoretsky © (2003-01-23 15:17) [3]

Это какая кнопка, в твоей программе?

← →
Юра (2003-01-23 15:22) [4]

В программе это TToolButton, в ее обработчкие стоит:
if not(QuickReport.State in [qrPrepare, qrPreview, qrPrint, qrEdit]) then QuickReport.preview;

← →
Anatoly Podgoretsky © (2003-01-23 15:31) [5]

Поставь там точку останова и посмотри в каком оно состоянии

← →
Юра (2003-01-23 15:42) [6]

qrAvailable

← →
gsu © (2003-01-23 15:46) [7]

св-во есть тама Availabled

← →
Юра (2003-01-23 15:54) [8]

Есть:
Available
Type : boolean; Run-time, read only

Before calling the ‘Print’ .or ‘Preview’ method check if the report is already running by reading the ‘Available’ property.
Qreport 3.5.0.

Равно False в процессе формирования репорта, когда он уже сформирован - TRUE.

тогда AfterPreview:
P:=TRUE

← →
Юра (2003-01-23 16:06) [10]

Да, так работает. Но есть в этом что-то неправильное...

>> Да, так работает. Но есть в этом что-то неправильное...
Напиши Биллу Гейтсу

Ты просто запрети свою кнопку, а потом разреши, кромето учти, что есть PreviewModal

QReport PrintPreview - как запретить? Найти похожие ветки