| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

QReport - сообщение

Martyn ©   (2002-05-16 14:29:00) 

привет всем!

вопрос по 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....


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

---

Martyn   (2002-05-16 16:52:00) [1]

2Anatoly Podgoretsky , Johnmen

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

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

---

Anatoly Podgoretsky   (2002-05-16 15:35:00) [2]

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

---

Johnmen   (2002-05-16 15:20:00) [3]

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

---

Martyn   (2002-05-16 15:12:00) [4]

2Johnmen

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

---

Johnmen   (2002-05-16 14:49:00) [5]

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

---

Наверх