Treeview Scrollbar links statt rechts und Breite derTreeview automatisch anpassen.

[Klaus01]

Hallo,

im Netz gefunden (quelle):

a)

Delphi-Quellcode:

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWinControlBiDi(TreeView1);
end;

Nachtrag: Die Items aufklappen (+) funktioniert dann nicht mehr so wie gewohnt

Nachtrag 2: Lesestoff

Grüße
Klaus