在运行时不能正常工作时设置文本对齐listboxitem Delphi XE5 FM

Question

我想更改在runtim创建并添加到简单列表框的litboxitem的对齐方式。

• 如果在运行时之前在设计窗口中添加listview项，则可以通过以下方式轻松调整对齐：

listboxitem1.VertTextAlign := TTextAlign.taTrailing;
listboxitem1.TextAlign := TTextAlign.taCenter;

• 但是，在运行时创建对象时，它根本不起作用。虽然高度例如：

listboxitem2 := Tlistboxitem.Create(self);
listboxitem2.Text := 'itemtext';
listboxitem2.Height := 100;
listboxitem2.VertTextAlign := TTextAlign.taTrailing;
listboxitem2.TextAlign := TTextAlign.taCenter;
listboxitem2.Name := 'itemname';
listbox1.AddObject(listboxitem2);

这段代码有什么问题？

Answer 1

此类设置通常是从样式中提取的。 StyledSettings属性告诉FM应从样式中提取哪些属性，其他属性将从属性中设置。如果在设计时编辑属性，编辑器将为您调整StyledSettings属性。在运行时，您需要手动执行此操作。

尝试添加：

listboxitem2.StyledSettings := listboxitem2.StyledSettings - [TStyledSetting.ssOther];