Author: Vassilis Perantzakis
How do we remove the minimize,maximize,restore and system menu buttons from a
QuickReport?
Answer:
This works only if a TQuickReport object is on a TForm (TMyReport is a TForm in the
example bellow).
Just add the following code in the StartPage event of the TQuickReport object:
1 procedure TMyReport.QuickRep1StartPage(Sender: TCustomQuickRep);
2 var3 i: integer;
4 begin5 for i := Screen.FormCount - 1 downto 0 do6 begin7 if Screen.Forms[i].ClassName = 'TQRStandardPreview' then8 Screen.Forms[i].BorderIcons := Screen.Forms[i].BorderIcons - [biSystemmenu] -
9 [biMaximize] - [biMinimize];
10 end;
11 end;