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

Question

使用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] .Text; 然后lbl1显示“新文本”。

这是一个错误还是我错过了什么？

TIA。

教育局

Answer 1

测试用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;