Delphi 创建 dxTileBarItem 运行时

Question

我使用了 Delphi XE7 和 DevExpress 组件，我需要在运行时创建 dxTileBarItem 并将其添加到我的 dxTileBar 但我不能。

  var
    //Tile4:TdxTileControlItem;
    Tile4:TdxTileBarItem;
  begin
    Tile4 := TdxTileBarItem.Create(dxTileBar1);
    Tile4.Name := 'Tile4';
    Tile4.GroupIndex := 0;
    Tile4.IndexInGroup := 3;

我的错误是什么？然后我想在手动创建的 dxTileItem 中存储一个表单对象，并从 OnTileClick 上调用每个对象，例如 ListBox，我应该怎么做？

Answer 1

可以使用CreateItem方法，例如：

var
  MyTile: TdxTileBarItem;
begin
  MyTile := dxTileBar1.CreateItem(tbisRegular);
  MyTile.Name := 'My Tile';
  ...
end;

或者您可以遵循 Delphi 控件使用的非常常见的模式，将项目添加到控件的 Items 集合中，例如：

var
  MyTile: TdxTileBarItem;
begin
  dxTileBar1.BeginUpdate;
  try
    MyTile := TdxTileBarItem(dxTileBar1.Items.Add);
    MyTile.Name := 'My Tile';
    ...
  finally
    dxTileBar1.EndUpdate;
  end;
  MyTile.MakeVisible;
end;

Delphi 创建 dxTileBarItem 运行时

Delphi create dxTileBarItem runtime

delphi

devexpress

runtime