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