|
|
Регистрация | << Правила форума >> | 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; Благими намерениями вымощена дорога в ад |
#2
|
||||
|
||||
TControl не имеет сойства Caption, используй TButton с проверкой as на корректность.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
||||
|
||||
А кусочка кода-примера не будет, пожалуйста, ато я в сеих операторах мало еще что понимаю
Благими намерениями вымощена дорога в ад |
#4
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#5
|
||||
|
||||
Понимаю, спасибо за то что ответили. Проблема в том что я не могу понять тип той "кнопки". Как-никак она вроде не TButton, хотя м.б. ошибаюсь. Но когда выделяю кнопку не submenu, а основного то инспектор пишет что кнопка пренадлежит TMenuItemю А сама кнопка submenu в инспекторе никак не определяется
Благими намерениями вымощена дорога в ад |
#6
|
||||
|
||||
Сейчас отвечу в личку.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |