D7迁移至D2007后TPopupMenu布局左右反转问题求助

API 探路者

2026-6-18

Delphi2007中TPopupMenu图标居右问题的解决方法

Delphi7迁移到Delphi2007后，无窗体关联的TPopupMenu出现图标/文本右对齐的问题，仅设置PopupMenu的BiDiMode := bdLeftToRight无法解决，可通过以下方案修复：

核心解决方案：为每个菜单项单独设置BiDi属性

PopupMenu的BiDiMode设置不会自动传递给子菜单项，需手动为每个TMenuItem指定左对齐规则：

Popup := TPopupMenu.Create(nil);
Popup.BiDiMode := bdLeftToRight;

// 配置第一个菜单项
StatisticsItem.Caption := 'menuitemtest1...';
StatisticsItem.Bitmap.Handle := LoadBitmap(HInstance, 'STATISTICS');
StatisticsItem.OnClick := xxx;
StatisticsItem.BiDiMode := bdLeftToRight;  // 强制菜单项左到右布局
StatisticsItem.RightToLeft := rtlNo;       // 禁用右到左渲染（增强兼容性）
Popup.Items.Insert(0, StatisticsItem);

// 配置第二个菜单项
StatisticsItem2 := TMenuItem.Create(Popup);
StatisticsItem2.Caption := 'menuitemtest2...';
StatisticsItem2.BiDiMode := bdLeftToRight;
StatisticsItem2.RightToLeft := rtlNo;
// 其他事件或属性设置...
Popup.Items.Add(StatisticsItem2);

TrayIcon.PopupMenu := Popup;

备选方案：为PopupMenu关联隐藏窗体

若菜单项单独设置仍无效，可创建一个隐藏窗体作为PopupMenu的Owner，借助窗体的BiDi设置约束菜单布局：

var
  HiddenHostForm: TForm;
begin
  HiddenHostForm := TForm.Create(nil);
  HiddenHostForm.Visible := False;
  HiddenHostForm.BiDiMode := bdLeftToRight;

  Popup := TPopupMenu.Create(HiddenHostForm);
  Popup.BiDiMode := bdLeftToRight;

  // 后续菜单项创建和配置同上
  TrayIcon.PopupMenu := Popup;
end;