从右到左 TListView

我正在对 tlistview 进行编程，以便它从右到左显示其列（以便正确显示希伯来语文本）。我在表单的创​​建方法中使用以下代码，其中“lv”是列表视图

 SetWindowLong (lv.Handle, GWL_EXSTYLE,
                GetWindowLong(lv.Handle, GWL_EXSTYLE)  or
                WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT);

 lv.invalidate;   

虽然此代码使列表视图中的行正确显示，但标题行从左到右显示！列不匹配，并且每列的标题都是错误的。

有谁知道如何让标题行从右到左显示？

我使用的是 Delphi 7，但这应该不会有太大区别。

TIA， 诺姆

这是设置标题和行的完整代码：

procedure TForm1.FormCreate(Sender: TObject);
const
  LVM_FIRST = $1000;      // ListView messages
  LVM_GETHEADER = LVM_FIRST + 31;
var
  header: thandle;
begin
  header:= SendMessage (lv.Handle, LVM_GETHEADER, 0, 0);
  SetWindowLong (header, GWL_EXSTYLE,
                 GetWindowLong (header, GWL_EXSTYLE)  or
                 WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT);

  SetWindowLong (lv.Handle, GWL_EXSTYLE,
                 GetWindowLong (lv.Handle, GWL_EXSTYLE)  or
                 WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT);
  lv.invalidate;   // get the list view to display right to left
end;