Опять динамическое создание

Evgesha

Надо все создать деномически
Вот так я сосздаю Preview и Report надо отображать на Форме

void __fastcall THaupForm::FormCreate(TObject *Sender)
{
HaupPreview=new TfrxPreview(HaupForm);
HaupPreview->Height=566; HaupPreview->Left=400; HaupPreview->Top=0; HaupPreview->Width=392;
HaupPreview->Zoom=0.5;

HaupReport=new TfrxReport(HaupForm);

//HaupReport->Preview=HaupPreview; // На связи прои сходит ошибка всего прилажения
}

на форме не появляется объект Preview

дальше редактирую какой должен быть Page

void __fastcall THaupForm::Button1Click(TObject *Sender)
{
SeiteEinrichten=new TfrxReportPage(HaupReport);
SeiteEinrichten->CreateUniqueName();
SeiteEinrichten->PaperSize=DMPAPER_USER;
SeiteEinrichten->PaperWidth=StrToInt(Edit1->Text);
SeiteEinrichten->PaperHeight=StrToInt(Edit2->Text);
HaupReport->ShowReport();
}

и как зделать чтобы можно было менять размеры уже у созданого листа
уже весь форум перерыл ни чего похожего

Помогите Зарание блогадарен

Evgesha

Вот блин не ужто никто не знает или в отпуске все?
Прошу помощи!

-=Den=-

Попробуйте так, только после построения отчета при изменении размеров листа позиции объектов не меняются.

  frxReport1->PrepareReport(true);
  frxReport1->PreviewPages->Page[0]->PaperWidth += 100;
  frxReport1->PreviewPages->Page[0]->PaperHeight += 100;
  frxReport1->PreviewPages->ModifyPage(0,  frxReport1->PreviewPages->Page[0]);
  frxReport1->ShowPreparedReport();

Evgesha

Спасибо все сработает
Но вопрос один есть
Как сделать чтобы диномически Привьев и Репорт отображался на форме
Связать програмно не получаеться

HaupReport->Preview=HaupPreview;

Опять зарание благадарю

Evgesha

Все разобрался сам
Вопрос снимаю