有谁用过RzMenuButton?

Question

只要不click RzMenuButton,就直接去翻任何一页,都不会报错的.
RzMenuButton的click 事件中根本没去对RzMenuButton数组 btnHotKeyList做任何的修改
接下来给出删除RzMenuButton调用的过程.
procedure TFormMain.DeleteBtns(btnType:SmallInt);
var
  i:integer;
begin
  Caption := IntToStr(Low(btnHotkeyList)) + '--' + InttoStr(high(btnHotKeyList));  case btnType of
  0://删除热键   
    for i:=low(btnHotkeyList)  to high(btnHotKeyList) do
    begin
      btnHotKeyList[i].Free;   //又出现了之前出现的，click过的热键都不能在这里释放的问题。
    end;
  1://删除页键
    for i:=low(btnPageKeyList) to high(btnPageKeyList) do//这里就是
    begin
      btnPageKeyList[i].Free;
    end;
  end;
end;

Answer 1

换了一种按钮来做,使用popup(x,y)达到了下拉菜单按钮的效果,顺利实现!