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);