使用TActionToolBar中的拆分按鈕修改「箭頭」

Question

我有一個使用TActionToolBar和TActionManager的工具欄。一個按鈕具有可用的子按鈕，單擊按鈕右側的小向下箭頭。

「向下箭頭」按鈕的寬度非常薄，需要精確的鼠標控制。我如何定製它？

謝謝

Answer 1

一個解決方案是使用TActionToolBar的OnGetControlClass事件。

之前，有必要從TThemedDropDownButton派生類和重寫GetDropDownButtonWidth功能：

function TThemedDropDownButtonEx.GetDropDownButtonWidth: Integer; 
begin 
     Result := 14; // default drop down button width 
end; 

然後，在OnGetControlClass功能：

void __fastcall TWorkAreaToolBarFrame::ActionToolBarLeftGetControlClass(TCustomActionBar *Sender, 
TActionClient *AnItem, TCustomActionControlClass &ControlClass) 
{ 
    if(ControlClass == __classid(TThemedDropDownButton)) 
     ControlClass = __classid(TThemedDropDownButtonEx); 
} 

在幾句話，在GetControlClass情況下，工具欄允許你定義你想要使用的按鈕類。我們使用默認寬度更改的自定義類。