只需写入OnPreview
事件处理程序
procedure TForm1.frxReport1Preview(Sender: TObject);
begin
if Assigned(frxReport1.PreviewForm) then
frxReport1.PreviewForm.BorderIcons := [TBorderIcon.biSystemMenu, TBorderIcon.biMaximize]
end;
如您所见,最小化按钮已禁用
请注意,PreviewForm
仅在显示报告时才会创建,因此OnPreview
事件处理程序是编写代码的正确位置。