delphi - TMS AdvSmoothMenu1 项目点击

Question

似乎 AdvSmoothMenu1 没有 itemindex 属性。我正在尝试做：

case AdvSmoothMenu1.ItemIndex of 
0: begin 

...但似乎没有这样的选择。那么我如何告诉我的应用程序在不同的项目 click 上做什么呢？

Answer 1

使用TAdvSmoothMenu.OnItemClick事件：

procedure TForm1.AdvSmoothMenu1ItemClick(Sender: TObject; 
  ItemIndex: Integer);
begin
  case ItemIndex of
    0: HandleItemZeroClick;
    1: HandleItemOneClick;
  end;
end;