[TPopupBox] Как программно открыть выпадающий список в TPopupBox?

[Martifan]

Всем доброго времени сутки

 

На форме есть компонент  TPopupBox. При нажатие кнопки у меня добавляется итемы

procedure TForm1.Button1Click(Sender: TObject);
begin
    PopupBox1.Items.Add('Item1');
    PopupBox1.Items.Add('Item2');
    PopupBox1.Items.Add('Item3');
    PopupBox1.Items.Add('Item4');
end;

вопрос:

 

как мне сделать так чтобы появилась меню при нажатие кнопки?

 

Заранее спасибо

[xenon54]

type
  TpopupBox_helper =  class helper for TPopupBox
    procedure ShowPopup;
  end;


procedure TForm1.Button1Click(Sender: TObject);
begin
    PopupBox1.Items.Add('Item1');
    PopupBox1.Items.Add('Item2');
    PopupBox1.Items.Add('Item3');
    PopupBox1.Items.Add('Item4');
    PopupBox1.ShowPopup;
end;


{ TpopupBox_helper }

procedure TpopupBox_helper.ShowPopup;
begin
  self.click;
end;

[Martifan]

Спасибо все работает