[Darlok]

Здравствуйте. Собственно сабж выложил кратко в теме топика. А теперь по-подробнее... Есть 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;

Код рабочий, но проблема в том что нужно было Caption кнопки передавать в Edit. Идеи которые пришли в голову - проверялись и не работают. Прошу помощи у знающих людей

[angvelem]

TControl не имеет сойства Caption, используй TButton с проверкой as на корректность.

[Darlok]

А кусочка кода-примера не будет, пожалуйста, ато я в сеих операторах мало еще что понимаю

[angvelem]

Сообщение от Darlok

А кусочка кода-примера не будет, пожалуйста, ато я в сеих операторах мало еще что понимаю

К сожалению, с недавних пор, я не пишу на этом форуме исходный код.

[Darlok]

Понимаю, спасибо за то что ответили. Проблема в том что я не могу понять тип той "кнопки". Как-никак она вроде не TButton, хотя м.б. ошибаюсь. Но когда выделяю кнопку не submenu, а основного то инспектор пишет что кнопка пренадлежит TMenuItemю А сама кнопка submenu в инспекторе никак не определяется

[angvelem]

Сейчас отвечу в личку.