TPopupBox [TPopupBox] Как программно открыть PopupBox?

[walexw]

Как программно заставить открыться список из PopupBox, кликая другому элементу (кнопке)?

Спасибо.

[Brovin Yaroslav]

Странно, что у компонента TPopupBox нету публичного метода для этого. Добавим. Однако, пока открыть можно только так:

type
  TOpenPopupBox = class(TPopupBox);

procedure TForm1.Button1Click(Sender: TObject);
begin
  TOpenPopupBox(PopupBox1).DoPopup;
end;