delphi - 如何创建带有下拉菜单的按钮？

Question

有没有办法显示 IE/Firefox 后退按钮样式、下拉菜单按钮？

Answer 1

我假设您指的是单击时会下拉菜单的按钮。

您还可以手动对按钮单击进行编码，以在其下方下拉 TPopupMenu。

示例:在表单上放置带有 TClickEvent(可能是 TButton)和 TPopupMenu 的任何内容。添加一些菜单项。然后添加以下 OnClick 事件处理程序:

procedure TForm86.Button1Click(Sender: TObject);
var
  button: TControl;
  lowerLeft: TPoint;
begin
  if Sender is TControl then
  begin
    button := TControl(Sender);
    lowerLeft := Point(button.Left, button.Top + Button.Height);
    lowerLeft := ClientToScreen(lowerLeft);
    PopupMenu1.Popup(lowerLeft.X, lowerLeft.Y);
  end;
end;

还有中提琴!就像魔法一样。如果您打算重用它，您可以将其全部包装在一个组件中。 甚至可能在线销售。

注意:如果您想要延迟，请在另一个方法中提取该代码，然后设置一个计时器 OnClick 并打开 OnMouseLeave 的计时器。然后，如果计时器触发，您可以调用提取的方法。不确定如何通过点击键盘来完成此操作。我不知道Firefox等是否也支持。