Скачать: CL | DM;

QReport - сообщение   Найти похожие ветки 

← →
Martyn   (2002-05-16 14:29) [0]

привет всем!

вопрос по QReport:

пример:

begin
QRpreview.QRprinter.free;
sertQR.preview;
end;

в обработчике события sertQR.onPreview
QRPreview.QRprinter := TQRPrinter(sender);

все работает класс:

а если :

begin
QRpreview.QRprinter.free;
sertQR.preview;

QRpreview.QRprinter.free;
sert_nextQR.preview;
end;

то при закрытии окна QRPreview вылетает ошибка:

control has no parent window....


кто знает, в чем проблема??????

---

← →
Johnmen ©   (2002-05-16 14:49) [1]

Что-то ты замутил....
Я так понял у тебя свой превью...Тогда
при закрытии формы превью :
procedure TPreviewForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin;
QRPreviewW.QRPrinter.Free;
QRPreviewW.QRPrinter:=nil;
Action:=caFree;
end;

---

← →
Martyn   (2002-05-16 15:12) [2]

2Johnmen

да, у меня действительно свой Preview, но вся проблема в том, что форма не закрывается, просто при нажатии кнопки Next, предыдущий отчет закрывается и открывается следующий в этом же Preview

---

← →
Johnmen ©   (2002-05-16 15:20) [3]

Возможно, надо убивать еще и QReport...

---

← →
Anatoly Podgoretsky ©   (2002-05-16 15:35) [4]

Без это фразы QRPreviewW.QRPrinter:=nil; нельзя, это правило для QR, то что могут быть еще и другие ошибки, то это другое дело, а эту обязательно.

---

← →
Martyn   (2002-05-16 16:52) [5]

2Anatoly Podgoretsky , Johnmen

QRPreviewW.QRPrinter:=nil - помогло.... все живет!

Спасибо, мужики!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c