Remove the minimize,maximize,restore and system menu buttons from a QuickReport (Views: 29)
Problem/Question/Abstract: 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: procedure TMyReport.QuickRep1StartPage(Sender: TCustomQuickRep); var i: integer; begin for i := Screen.FormCount - 1 downto 0 do begin if Screen.Forms[i].ClassName = 'TQRStandardPreview' then Screen.Forms[i].BorderIcons := Screen.Forms[i].BorderIcons - [biSystemmenu] - [biMaximize] - [biMinimize]; end; end; |