Delphi 如何在运行时更改FMX ListBoxGroupHeader文本

使用FMX，XE8

我正在尝试解决如何在运行时更改TListBoxGroupHeader的文本

我有一个TListBox，在设计时，我在其中添加了一个TListBoxGroupHeader作为第一项

列表框中有许多额外的项（每个项上都有控件-我希望在设计时添加这些控件）

在运行时，我想更改ListBoxGroupHeader的文本-我不知道如何做

我试过：

 ListBoxGroupHeader1.Text:='new text';    
 ListBox1.ListItems[0].Text:='new text';    
 TListBoxGroupHeader(ListBox1.ListItems[0]).Text:='new text';    
 TListBoxGroupHeader(ListBox1.ListItems[0]).ItemData.Text:='new text';

文本没有任何变化

或者更确切地说，文本数据已更改，但不会更改列表框中的组标题。也就是说，如果我在表单上放置标签并执行以下操作： lbl1.Text:=lst1.ListItems[0]。文本； 然后lbl1显示“新文本”

这是一个错误还是我遗漏了什么

蒂亚

---

EdB使用Delphi XE8更新1进行测试

我和你有同样的问题。我做了以下变通：

var
  Form1: TForm1;
  ListBoxGroupHeader1: TListBoxGroupHeader;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBoxGroupHeader1 := TListBoxGroupHeader.Create(ListBox1);
  ListBoxGroupHeader1.Visible := False;
  ListBoxGroupHeader1.Parent := ListBox1;
  ListBoxGroupHeader1.Visible := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBoxGroupHeader1.Text := DateTimeToStr(Now);
end;

---

使用Delphi XE8更新1进行测试

我和你有同样的问题。我做了以下变通：

var
  Form1: TForm1;
  ListBoxGroupHeader1: TListBoxGroupHeader;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBoxGroupHeader1 := TListBoxGroupHeader.Create(ListBox1);
  ListBoxGroupHeader1.Visible := False;
  ListBoxGroupHeader1.Parent := ListBox1;
  ListBoxGroupHeader1.Visible := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBoxGroupHeader1.Text := DateTimeToStr(Now);
end;

---

感谢-QC中报告为RSP-11510，该问题在Delphi DX 10的试用版（昨天发布）中修复感谢-QC中报告为RSP-11510，该问题在Delphi DX 10的试用版（昨天发布）中修复