Перейти к содержанию
Fire Monkey от А до Я
  • 0

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

вопрос:

 

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

 

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

Ссылка на комментарий

Рекомендуемые сообщения

  • 0
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;

Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...