TW7ToolButton - 添加下拉菜單

Question

根據TMS，W7ToolButton1可用於顯示下拉菜單。但我沒有看到你怎麼做，因爲它沒有下拉菜單屬性。我只能添加的菜單是與下拉菜單不同的彈出菜單。有人知道如何將下拉菜單添加到按鈕中？我可以添加一個下拉箭頭到按鈕，但它是如何使點擊這個箭頭（假設它的功能是這樣）使彈出菜單顯示的神祕...

Answer 1

的TW7ToolButton不會出現有一個事件點擊拆分按鈕箭頭所以這可能是你可以與當前組件版本做的最好的：

procedure TForm1.W7ToolButton1Click(Sender: TObject); 
var 
    iPoint: TPoint; 
begin 
    iPoint := ClientToScreen(Point(W7ToolButton1.Left, W7ToolButton1.Top + W7ToolButton1.Height)); 
    PopupMenu1.Popup(iPoint.X, iPoint.Y); 
end; 

菜單將出現在按鈕下方就像下拉菜單一樣。

Answer 2

我不熟悉TMS，但是，與常規按鈕/ SpeedButton的，你可以使用類似：

PopupMenu1.Popup (Form1.Left + SpeedButton1.Left + SpeedButton1.Height, Form1.Top + SpeedButton1.Top + SpeedButton1.Width);