كيف يمكن جعل الأداة TListView تدعم الاتجاه العربي؟

يمكنك استخدام هذا الكود فى On Create

procedure TForm1.FormCreate(Sender: TObject);
var
Oldlong:integer;
begin
    OldLong := GetWindowLong(ListView1.Handle,GWL_EXSTYLE);
    SetWindowLong(ListView1.Handle, GWL_EXSTYLE,OldLong or WS_EX_LAYOUTRTL);
    InvalidateRect(ListView1.Handle,nil,True);
end;