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