只需在OnPreview
事件处理程序中写入
procedure TForm1.frxReport1Preview(Sender: TObject);
begin
if Assigned(frxReport1.PreviewForm) then
frxReport1.PreviewForm.BorderIcons := [TBorderIcon.biSystemMenu, TBorderIcon.biMaximize]
end;
只需在OnPreview
事件处理程序中写入
procedure TForm1.frxReport1Preview(Sender: TObject);
begin
if Assigned(frxReport1.PreviewForm) then
frxReport1.PreviewForm.BorderIcons := [TBorderIcon.biSystemMenu, TBorderIcon.biMaximize]
end;