title: Right click(popup menu) does not work when change diretion of treeview with SetWindowLong Command
body: <p>When I use SetWindowLong command to change direction of treeview, popupmenu on its node dose not show. Full Code is here :</p>
  
  <pre><code>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;
  </code></pre>