FastReport中如何实现自定义预览窗口关闭事件

最新推荐文章于 2024-04-17 13:21:58 发布

原创最新推荐文章于 2024-04-17 13:21:58 发布 · 2.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#前端 #c# #ViewUI

T_L_Delphi 专栏收录该内容

18 篇文章

订阅专栏

本文介绍了一个使用frxReport组件的Delphi应用程序中如何定制预览窗体的关闭事件。通过覆盖默认的关闭行为并在窗体关闭时显示提示消息，实现了对报告预览行为的增强。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

....
interface

uses
  .....,frxPreview, frxClass;

type
 TForm1 = class(TForm)
   frxReport1: TfrxReport;
   procedure frxReport1Preview(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 end;

var
 Form1: TForm1;
 OldCloseEvent:TCloseEvent;

implementation
procedure NewOnClose(Sender: TObject; var Action: TCloseAction);
begin
 OldCloseEvent(Sender,Action);
 ShowMessage('Preview Closed');
end;

procedure TForm1.frxReport1Preview(Sender: TObject);
begin
 OldCloseEvent := frxReport1.PreviewForm.OnClose;
 @frxReport1.PreviewForm.OnClose := @NewOnClose;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
frxReport1.ShowReport();
end;