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;