使用 SetWindowLong 命令更改树视图方向时，右键单击（弹出菜单）不起作用

Question

当我使用 SetWindowLong 命令更改树视图的方向时，其节点上的弹出菜单不显示。完整代码在这里：

Procedure SetWinControlBiDi(Control: TTreeView);
 var
  ExStyle: Longint;
 begin

  ExStyle := GetWindowLong(Control.Handle, GWL_EXSTYLE);

  SetWindowLong(Control.Handle, GWL_EXSTYLE, ExStyle or WS_EX_RTLREADING or WS_EX_RIGHT or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT );

 end;


procedure TMainForm.FormShow(Sender: TObject);
 begin

  SetWinControlBiDi(TreeView1);

 end;

Answer 1

执行此操作的标准方法是使用 Delphi BiDiMode 属性。最好这样做，以便 VCL 知道您想要从右到左。您还需要更改弹出菜单上的 BiDiMode 属性。

现在，正确的方法是不要更改各个组件的属性。这样做既费力又容易出错。在应用程序初始化的某个位置设置 Application.BiDiMode ，更改将传播到所有组件。

例如，您可以在应用程序的 .dpr 文件中进行更改：

Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.BiDiMode := bdRightToLeft;
Application.CreateForm(TMainForm, MainForm);
Application.Run;

您需要确保未在任何 .dfm 文件中修改任何组件的 BiDiMode 或 ParentBiDiMode。如果您只是从 .dfm 文件中删除这些行，那么将允许单个应用程序范围的 Application.BiDiMode 设置来控制一切。

---

您设置 GWL_EXSTYLE 的方法有问题。 VCL 控制该设置，如果您确实需要更改它，在 TForm.OnShow 中执行此操作将导致奇怪的错误。有时需要重新创建窗口，当发生这种情况时，设置 GWL_EXSTYLE 的代码将不会运行，并且树视图将恢复为从左到右。如果您确实需要修改窗口样式，那么您需要重写组件的TWinControl.CreateParams。然而，在这种情况下，VCL 直接支持 BiDi，这是最好的解决方案。

Answer 2

这是显示 TPopupMenu 的替代解决方案 在本例中

1- 使用 OnMouseDown 事件

2- 编写此代码以在单击鼠标右键时显示​​ TPopupMenu

 var
  pt : TPoint;

  begin
  pt := Mouse.CursorPos;

   if Button = mbRight then
        APopupMenu.Popup(pt.X, pt.Y);

祝你好运！