TDBEdit PopupMenu 默认行为

Question

似乎是delphi 5之间的行为的变化（是，我知道它是非常旧的）和delphi 10.1当没有选择没有其PupupMenu属性集的TDBedit控件并且单击鼠标右键时。在 Delphi 5 TDBEdit 的父控件中显示 PopupMenu（当然假设它有一个），但在 Delphi 10.1 中显示了“标准”Windows 上下文菜单 ['Undo'、'Cut'、...'从右到左阅读顺序'等.].

如果没有明确设置一个 TDBEdit 控件的父控件的 PopupMenu，我如何让 Delphi 10.1 使用它。被迁移的应用程序有数百个表单，每个表单都包含数十个 TDBEdit 控件，并且必须将它们的每个 PopupMenu 属性显式设置为三个父控件的属性，这有点令人生畏！

Answer 1

您可以使用应用程序的 Screen 对象的 OnActiveFormChange 事件对此进行简单（或者，您可能会说是简单化）运行时修复。

将大部分必要的代码放在至少由您的主窗体使用的数据模块中可能是最简单的。

例如在数据模块中添加以下方法：

Uses [...] Forms, DBCtrls;

procedure TdmPopUp.ActiveFormChange(Sender: TObject);
begin
  FixUpDBEdits(Screen.ActiveForm);
end;

procedure TdmPopUp.FixUpDBEdits(AForm : TForm);

  procedure FixUpDBEdit(ADBEdit : TDBEdit);
  begin
    if ADBEdit.PopupMenu = Nil then
      if ADBEdit.PopupMenu <> AForm.PopupMenu then
        ADBEdit.PopupMenu := AForm.PopupMenu
  end;

  procedure FixUpDBEditsInner(AComponent : TComponent);
  var
    i : Integer;
  begin
    if AComponent is TDBEdit then
      FixUpDBEdit(TDBEdit(AComponent));
    for i := 0 to AComponent.ComponentCount - 1 do
      if AComponent.Components[i] is TDBEdit then
        FixUpDBEdit(TDBEdit(AComponent.Components[i]));
  end;

begin
  FixUpDBEditsInner(AForm);
end;

然后，您需要的所有附加代码都可以放在主窗体的 OnCreate 和 OnDestroy 中：

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Screen.OnActiveFormChange := Nil;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.OnActiveFormChange := dmPopUp.ActiveFormChange;
end;

显然，“艰苦的工作”是在数据模块的FixUpDBEdit 子过程中完成的。我的版本只是检查 DBEdit 的 PopUpMenu 不为零（如果它已被明确设置为某些东西），它尚未设置为封闭表单的 PopUpMenu，然后将其分配给表单。这还没有经过浸泡测试，可能需要一些技巧，但希望能让您继续前进。