Question

我在TListBoxItem的样式中添加了一个TImage。

如果我添加到TListBox，它可以工作。如果我添加到TComboBox，它不起作用。如果TComboBox中的项目，我甚至无法改变高度。

这是我的示例代码：

procedure TMainForm.FormCreate(Sender: TObject);
const
  BitmapFile : String = 'F:\testimage.png';
var
  ItemText : TText;
  ItemImage   : TImage;
  ListBoxItem : TListBoxItem;
  button : TButton;
begin

  ListBoxItem := TListBoxItem.Create(nil);
  ListBoxItem.Parent := CBoxHeadMenuLanguage;

  ListBoxItem.StyleLookup := 'ListBoxItemIconStyle';
  ListBoxItem.Height := 50; //just for test

  ItemText := ListBoxItem.FindStyleResource('text') as TText;
  if Assigned(ItemText) then ItemText.Text := 'Hello World!';

  ItemImage := ListBoxItem.FindStyleResource('image') as TImage;
  if Assigned(ItemImage) then If FileExists(BitmapFile) Then ItemImage.Bitmap.LoadFromFile(BitmapFile);
end;

Answer 1

你真的不应该在FormCreate中做样式，因为样式是根据需要应用的，可以随时删除和重新应用。

相反，您需要使用OnApplyStyleLookup事件或ApplyStyle方法。我建议继承TListBox并使用后者并添加一个属性来存储位图。

大纲类声明将是：

type TBitmapLBItem = class(TListBoxItem)
  private
    FBitmap: TBitmap;
  protected
    procedure ApplyStyle;override;
  public
    property Bitmap: TBitmap read FBitmap write SetBitmap;
  end;

在ApplyStyle和SetBitmap中使用FindStyleResource等（或创建共享方法）。

在FormCreate中创建新类的项目并根据需要设置Bitmap属性。

对于高度问题，请尝试设置组合框的ItemHeight属性。如果你想要列表中的各种高度，你可能会运气不好。

TComboBox与Firemonkey中的图像

1 个答案: