delphi - 打开表单时显示消息(设计器时间)

Question

当程序员在设计器时间打开表单时，我想显示一个通知(例如ShowMessage)。
有可能吗？怎么办？
谢谢。

PS:Delphi XE7/VCL

<小时/>

我有一个包含 700 多个表单的项目，但是当程序员打开特定表单时，我希望收到一条通知(例如 ShowMessage)，说明 .pas 文件开头有注释等.

这应该以任何形式发生。

Answer 1

如果您想对任何表单执行此操作，有一种简单的方法可以实现。 (根据 David Heffernan 的评论，你的用户是否会感谢你是另一回事，但无论如何......)

它涉及在 IDE 中安装一个包，该包安装一个实现 IDesignNotification 接口(interface)的对象。

要使用，请创建一个新表单并向其中添加 TMemo，将该表单重命名为 DesignNotifierForm，将其保存到磁盘，然后将以下代码复制到其中。然后创建一个新包并将单元添加到其中。然后编译并安装该包。在较旧的 Delphi 版本(如 D7)中，包编辑器中有一个安装按钮，而在较新的版本(如 D10 Seattle)中，您可以转到“查看”|“安装”按钮。 IDE 中的项目管理器，然后在弹出窗口中右键单击 BPL 文件，然后从弹出上下文菜单中选择“安装”。

正如您所看到的，除了表单之外，该单元还声明了一个通知程序对象，TDesignNotification，它实现了一个接口(interface)，以便它可以向 IDE 设计器注册并从中接收通知。您的视角唯一感兴趣的是 DesignerOpened，您可以在其中调用 ShowMessage 或执行任何您想要的操作。

包含 TDesignNotifierForm 主要是作为一种简单的方法来实验和观察 TDesignNotification 收到的通知，TDesignNotification 可以完美地工作不过，没有表格也很好。

顺便说一句，您可能想看看 ToolsAPI.Pas 单元，它包含许多可用于与 IDE 交互的接口(interface)。

unit DesignNotifierFormu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, TypInfo, ToolsApi, DesignIntf;

type
  TDesignNotifierForm = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
  private
  public
    procedure Log(const Title, Msg : String);
  end;

  TDesignNotification = class(TInterfacedObject, IDesignNotification)
    F : TDesignNotifierForm;
    procedure ItemDeleted(const ADesigner: IDesigner; AItem: TPersistent);
    procedure ItemInserted(const ADesigner: IDesigner; AItem: TPersistent);
    procedure ItemsModified(const ADesigner: IDesigner);
    procedure SelectionChanged(const ADesigner: IDesigner;
      const ASelection: IDesignerSelections);
    procedure DesignerOpened(const ADesigner: IDesigner; AResurrecting: Boolean);
    procedure DesignerClosed(const ADesigner: IDesigner; AGoingDormant: Boolean);
    constructor Create;
    destructor Destroy; override;
  end;

var
  DesignNotification : TDesignNotification;

implementation

{$R *.dfm}

procedure SetUp;
begin
  DesignNotification := TDesignNotification.Create;
  RegisterDesignNotification(DesignNotification);
end;

procedure TDesignNotifierForm.Log(const Title, Msg: String);
begin
  Memo1.Lines.Add(Title + ': ' + Msg);
end;

constructor TDesignNotification.Create;
begin
  inherited Create;
  F := TDesignNotifierForm.Create(Nil);
  F.Show;
  F.Log('Event', 'Notifier created');
end;

procedure TDesignNotification.DesignerClosed(const ADesigner: IDesigner;
  AGoingDormant: Boolean);
begin

end;

procedure TDesignNotification.DesignerOpened(const ADesigner: IDesigner;
  AResurrecting: Boolean);
var
  C : TComponent;
  Msg : String;
begin
  C := ADesigner.Root;
  if C <> Nil then begin
    Msg := C.ClassName;
    //  At this point, you can call ShowMessage or whatever you like
    ShowMessage(Msg);
  end
  else
    Msg := 'no root';
  F.Log('Designed Opened', Msg);
end;

destructor TDesignNotification.Destroy;
begin
  F.Close;
  F.Free;
  inherited;
end;

procedure TDesignNotification.ItemDeleted(const ADesigner: IDesigner;
  AItem: TPersistent);
begin

end;

procedure TDesignNotification.ItemInserted(const ADesigner: IDesigner;
  AItem: TPersistent);
begin

end;

procedure TDesignNotification.ItemsModified(const ADesigner: IDesigner);
begin

end;

procedure TDesignNotification.SelectionChanged(const ADesigner: IDesigner;
  const ASelection: IDesignerSelections);
begin
end;


initialization
  SetUp;
finalization
  if DesignNotification <> Nil then begin
    UnRegisterDesignNotification(DesignNotification);
    //  Evidently the following is superfluous and results in a double-free  DesignNotification.Free;
  end;
end.

I want to be given a notification (eg ShowMessage) stating that there are, for example, comments at the beginning of the .pas file.

好吧，上面的代码向您展示了如何在打开表单时提供某种事件。如何执行诸如在文件开头提取注释之类的操作实际上是一个不同的技术问题，如果您在尝试执行此操作时遇到困难，应该在新问题中提出。

顺便说一句，您的 q 上的评论之一向您指出了 Bob 博士的代码片段。就展示技术而言，这很好，但只有在您要在包中安装自己的表单时才会做您想做的事情。