• Registered: 2020-05-06
  • Posts: 4

Topic: Кнопка с выпадающим меню

Всем доброго дня!

Может, кто уже такое делал? Возможно ли сделать кнопку, чтобы по ее нажатию от нее разворачивалось меню с пунктами, и сама кнопка сохраняла последний выбранный пункт? Примерно как в офисовском интерфейсе -- у кнопки есть "основная часть", по нажатию которой идет действие по умолчанию, а если нажать на ее правую часть "со стрелочкой", то разворачивается менюшка с дополнительными пунктами. И выбираемый из менюшки пункт становится активным на самой основной кнопке.

Спасибо!

2 Reply by sibprogsistem (edited by sibprogsistem 2021-01-09 18:45:30)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Кнопка с выпадающим меню

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if (Form1.ComboBox1.ItemIndex=-1)then ShowMessage('Значение не выбранно');
  if (Form1.ComboBox1.ItemIndex=0)then ShowMessage('ДА');
  if (Form1.ComboBox1.ItemIndex=1)then ShowMessage('НЕТ');
end;

procedure Form1_ComboBox1_OnChange (Sender: TObject);
begin
  if (Form1.ComboBox1.ItemIndex=-1)then Form1.Button1.Caption:=' ';
  if (Form1.ComboBox1.ItemIndex=0)then Form1.Button1.Caption:='ДА';
  if (Form1.ComboBox1.ItemIndex=1)then Form1.Button1.Caption:='НЕТ';
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.ComboBox1.Items.Add('Сообщение ДА!');
  Form1.ComboBox1.Items.Add('Сообщение НЕТ!');                                               
end;
Post's attachments

Attachment icon test.rar 3.7 kb, 261 downloads since 2021-01-09 

  • Registered: 2020-05-06
  • Posts: 4

Re: Кнопка с выпадающим меню

sibprogsistem, спасибо большое! Элегантно!