2009. január 26., hétfő

Remove the minimize,maximize,restore and system menu buttons from a QuickReport

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;


Nincsenek megjegyzések:

Megjegyzés küldése