【问题标题】:how can I lock and hide a FastReport object inspector?如何锁定和隐藏 FastReport 对象检查器?
【发布时间】:2019-04-03 01:31:10
【问题描述】:

我正在使用 fastreport 报告来创建标签,然后打印。但我需要从代码中向用户展示 TfrxDesigner,以便他们可以拖动报告页面中的组件并调整其大小。

话虽如此,我需要锁定并隐藏所有菜单和工具栏,以便用户不使用它们。 我不想显示或让用户使用图片上红色形状的菜单,数据树和所有工具栏,只有绿色的。

有人去过吗?任何帮助表示赞赏,谢谢!

【问题讨论】:

    标签: delphi report vcl fastreport


    【解决方案1】:

    您可以创建一个 TfrxDesigner 实例:

      FDesigner := TfrxDesigner.Create(nil);
      FDesigner.OnShow := DesignerShow;
    

    使用这样的 OnShow 处理程序:

    procedure TFRHelper.DesignerShow(Sender: TObject);
    begin
      Assert(Sender is TfrxDesignerForm);
      // Change the TfrxDesignerForm as you wish, e.g.:
      TfrxDesignerForm(Sender).BorderIcons := TfrxDesignerForm(Sender).BorderIcons - [biMinimize];
      TfrxDesignerForm(Sender).OnMouseWheel := DesignerFormMouseWheel;
    end;
    

    【讨论】:

    • 我使用了@uli 提供的答案,我只需要更改一些东西,它就可以按我的意愿工作。这是我在 DesignerShow 事件中使用的代码,而不是 uli 提供的代码。
    • TfrxDesignerForm(ReportePrueba.Designer).ObjectsTB1.Visible := False; TfrxDesignerForm(ReportePrueba.Designer).StandardTB.Visible := False; TfrxDesignerForm(ReportePrueba.Designer).AlignTB.Visible := False; TfrxDesignerForm(ReportePrueba.Designer).TextTB.Visible := True; TfrxDesignerForm(ReportePrueba.Designer).FrameTB.Visible := False; TfrxDesignerForm(ReportePrueba.Designer).ExtraToolsTB.Visible := False; TfrxDesignerForm(ReportePrueba.Designer).DataTree.Visible := False; TfrxDesignerForm(ReportePrueba.Designer).Inspector.Visible := False;
    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2016-12-08
    • 1970-01-01
    • 1970-01-01
    • 2015-12-11
    • 1970-01-01
    相关资源
    最近更新 更多