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运行时

1 个答案: