Delphi 是否有一个“锁定”选项？防止意外更改的表单设计（布局）？

Question

经过多年的 Delphi 开发，我现在在我们的应用程序中共享了数百个表单。编译范围从 Delphi 7 到 XE，因此一种表单可以在任何 IDE 中打开。 Delphi 7 之后添加的众所周知的 Explicitxxx 属性提供了解决方案，以避免表单意外获取早期编译器无法处理的属性（例如 Andreas 的 DDevExtensions），但我想要一个更积极的“开关”，以阻止 Delphi 进行或保存任何表单修改。时期。

当然，您可以使用只读标志，并且版本控制系统提供了额外的方法，特别是查看是否发生了此类修改。不过，我真正想要的是一个可以放入表单单元中的 {$LockDFM} 开关，或者在查看表单布局时的上下文菜单选项。

谁能想出一个巧妙的方法来实现这一目标？

谢谢

Answer 1

我唯一能想到的（除了你提到的只读/VCS 选项）是“编辑”菜单的“锁定控件”选项。这会设置一个标志来防止控件移动。我不确定它实际上会有多大好处，因为我从未尝试过；我只知道它就在那里。

Answer 2

Helo

我很确定 Delphi 没有这样的东西。我也一直在寻找这个问题的解决方案。

但是，您可以做一件事：您可以使用 OTA（开放工具 API）编写自己的 Delphi 插件。我知道有一些类可以在要保存某些内容时通知您。您可以拦截此事件并决定是否要保存它（在您的情况下，如果它是 DFM）。

顺便说一句，如果您有计划做这样的组件，请告诉我。 :)

编辑：

我找到了一段可能对您有帮助的代码。摘自http://www.gexperts.org/otafaq.html

  TMyFormNotifier = class(TNotifierObject, IOTANotifier, IOTAFormNotifier)
  protected
     procedure FormActivated;
     procedure FormSaving;
     procedure ComponentRenamed(ComponentHandle: TOTAHandle; const OldName, NewName: string);
  end;

Answer 3

在设计时有编辑->锁定控制。

LE：这仅用于调整表单上控件的大小/位置。关于 ObjectInspector，我不知道是否有任何东西可以“锁定”那里设置的值（因此开发人员无法更改它们）。

Answer 4

基本上，没有。除了我认为不应该出现在 .dfm 中的 f'ing（请原谅我的法语）显式大小和位置属性之外，还有一些第三方组件将通过您查看表单来更改内容。即使您自其组件的上一个版本以来没有进行任何更改，Fx TMS 组件也会更新版本号。