Элементы PopupMenu - автоматическое добавление

[Dux]

Как добавить элементы в PopupMenu, чтобы их названия можно было загружать из списка ListBox?

[Stilet]

Например так:

var i:integer; mi:TMenuItem;
begin
 with ListBox1.Items do
  for i:=0 to Count-1 do begin
    mi:=TMenuItem.Create(PopupMenu1);
    mi.Caption:=Strings[i];
    mi.OnClick:=OnClickMe;
    PopupMenu1.Items.Add(mi);
  end;
end;

OnClickMe - обработчик клика, заранее определенный.

[Dux]

Вот спасибо, Stilet!

Еще маленькое уточнение, как в OnClickMe прописать следующий код?

 ADOQuery1.FieldByName('Done').AsString:=mi.Caption;

[Stilet]

ADOQuery1.FieldByName('Done').AsString:=TMenuItem(Sender).Caption;

если не ошибаюсь.

[Dux]

Я имею ввиду - что такое OnClickMe -это должна быть отдельная процедура? Как в нее поместить код выполнения?

и код выдает ошибку в этой строчке:

mi:=TMenuItem.Create(PopupMenu1);

говорит:
[DCC Error] Unit23.pas(1110): E2003 Undeclared identifier: 'PopupMenu1'

[Toxa]

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

и код выдает ошибку в этой строчке:

mi:=TMenuItem.Create(PopupMenu1);

говорит:
[DCC Error] Unit23.pas(1110): E2003 Undeclared identifier: 'PopupMenu1'

какой то бездумный копипаст
замени PopupMenu1 на компонент в котором создаются элементы

[Dux]

Спасибо, с этим разобрался.

Вопрос открытый куда прописать строчку, чтобы она выполнялась при клике по меню:

ADOQuery1.FieldByName('Done').AsString:=TMenuItem(Sender).Caption;

Подскажите пожалуйста.

[evg_m]

у тебя есть форма на которой есть PopUpMenu (та в которую добавляли строки).
в НЕЕ дописываем объявление метода OnClickMi

type 
  TFormX =class(TForm)
...
  private
    procedure OnClickMi(sender: TObject);
  end;

и потом делаем ее реализацию!!!

procedure TFormX.OnclickMi(sender: TObject);
begin
  ADOQuery1...:=TMenuItem(sender).....
end;

P.S. "визуальный метод" создания метода
1) открываем форму в редакторе
2) находим PopUpMenu
3) ДОБАВЛЯЕМ туда ОДИН пункт
4) в InspectorObject.Events ЗАДАЕМ ЕМУ OnClick и называем его OnClickMi
5) пишем код(!) этого метода (OnClickMi)

ADOQuery....

6) УДАЛЯЕМ добавленный пункт из меню(!)
код при этом останется и мы cможем его потом использовать при наших созданиях меню.

[Dux]

Всем огромнейшее спасибо! Разобрался!!!

И еще коротенький вопросик, почему при выполнении этой строчки:

ADOQuery1.FieldByName('Done').AsString:=TMenuItem(Sender).Caption;

в соответствующем столбце 'Done' в ячейке к названию пункта добавляется символ "&"?

Т.е. если пункт называется 'Checked', то в базу он записывается как '&Checked'

[Stilet]

Используй StringReplace для вырезания символа &.
Он говорит о горячей клавише в меню. Или в свойствах меню отключи продуцирование горячей клавиши.