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 2 procedure TMyReport.QuickRep1StartPage(Sender: TCustomQuickRep);
3 var4 i: integer;
5 begin6 for i := Screen.FormCount - 1 downto 0 do7 begin8 if Screen.Forms[i].ClassName = 'TQRStandardPreview' then9 Screen.Forms[i].BorderIcons := Screen.Forms[i].BorderIcons - [biSystemmenu] -
10 [biMaximize] - [biMinimize];
11 end;
12 end;