Свой Preview!

71VLNet

Решил сделать свой Preview. Кинул на форму Preview, кнопки...
Всё нормально, кроме экпорта - пробовал HTML и Excel.
После экспорта (работает нормально), моё окно Preview очищается, отчет становиться пустым, просто серый фон без страниц ...
Делал Preview.Update, refresh и ещё чёто уже запутался.
Помогло только когда сделал так:

procedure TPrint_Frm.Excel_ExportClick(Sender: TObject);
begin
  try
    DM.Rep.Export(DM.XLSExport1);
  finally
    Preview1.Unlock;
  end;
end;
[COLOR=red][B]Работает, вопрос а правильно ли, чёт сомневаюсь? Пдскажите![/B]
Форму создаю так:

function Show_Print_Frm(FrmCaption: string): Boolean;
var
  Frm: TPrint_Frm;
begin
  Frm := TPrint_Frm.Create(Application);
  try
    with Frm do
    begin
      Caption := FrmCaption;
      DM.Rep.Preview := Frm.Preview1;
      Result := Frm.ShowModal = mrOK;
    end;
  finally
    Frm.Free;
  end;
end;

vlad_galaxy

У TfrxPreview есть метод Export.
procedure TPrint_Frm.Excel_ExportClick(Sender: TObject);
begin
Preview1.Export(DM.XLSExport1);
end;

конструкция try ... finally используется внутри метода Export, там же и Unlock