|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Работа с Popupmenu. Динамическое количество Submenu. Обращение к ним
Здравствуйте. Собственно сабж выложил кратко в теме топика. А теперь по-подробнее... Есть access-овская бд с табличками. Подключение через ADO.
А теперь проблема. При запуске программы циклом создаются submenu в Popupmenu (В самом меню статические 5 обьектов, и к этим обьектами создаются дополнительные выпадающие списки с кнопками. Количество кнопок на прямую зависит от количества записей в таблице). Так вот, реализовать создание кнопок смог, появление messagedlg с названием кнопки сделал, но проблема появилась следующая... Как узнать Caption кнопки?? Ниже код создания кнопок и код процедуры вывода сообщения Код:
i,fld_count_org:integer; begin fld_count_org:=DataModule2.Organization.RecordCount-1; DataModule2.Data_field_popup.Active:=false; DataModule2.Data_field_popup.SQL.Clear; DataModule2.Data_field_popup.SQL.Text:='Select [Наименование организации] From Организации'; DataModule2.Data_field_popup.Active:=True; for i:=0 to fld_count_org do begin PopupMenu2.Items.Items[0].NewBottomLine; PopupMenu2.Items.Items[0].Items[i].Name:='q_0_'+IntToStr(i); PopupMenu2.Items.Items[0].Items[i].Caption:=DataModule2.Data_field_popup.Fields.FieldByname('наименование организации').AsString; PopupMenu2.Items.Items[0].Items[i].OnClick:=ClickPopupMenu;э DataModule2.Data_field_popup.Next; end; Код:
procedure TForm1.ClickPopupMenu(Sender: TObject); begin MessageDlg('Нажата '+TControl(Sender).Name ,mtInformation,[mbOk],0); end; Благими намерениями вымощена дорога в ад |