Set activepageindex to preview but doesant run report until Design tab selected then preview again

rbuser

I use the following to set the preview tab as the first visible
tab upon running a report to screen. However the report doesn't
activate until I click the Design tab selected then preview tab
again.

procedure TfmInvAddReports.ppDesigner1Show(Sender: TObject);
begin
TppDesignerWindow(ppDesigner1.Form).Notebook.SelectNextPage(True
);
ppDesignerWindow(ppDesigner1.Form).pgcDesigner.ActivePageIndex
:= 1;
end;

digitalmetaphors

Works for me in this simple project I just put together:

RB 7.02
D6
DADE- DBDEMOS (BDE)

http://www.digital-metaphors.com/tips/ShowPreviewOnDesignerShow.zip

Cheers,

Jim Bennett
Digital Metaphors