delphi - 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，但是，使用常规按钮/速度按钮，您可以使用以下内容：

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