راست چین کردن درخت در دلفی

در دلفی اگر می خواهید در TreeView گره ها راست به چپ نمایش داده شوند از کد زیر استففاده کنید . 

 const
 WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children
 WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring

procedure SetWinControlBiDi(Control: TWinControl);
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;
 

ودر رویداد FormShow کد زیر را بنویسید . 

SetWinControlBiDi(TreeView);
TreeView.Refresh; 

موفق باشید