| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Динамическое создание PopupMenu

Ольга ©   (2004-12-03 17:10:00) 

Мастера, помогайте! Вопрос не сложный, но самой разбираться некогда - к утру нужно, чтобы программа работала.

Есть Query. Нужно создать PopupMenu, где Items состоят из значений одного из полей Query.
Прилагаю свой кадочный листинг:

   i:=0;
   While not Query.Eof do
   begin
     Popup.Items[i].Caption:=Query.FieldByName    
           ('Name').AsString;
     inc(i);
     Popup.Items.Add();   // ???
     Cause.Next;
   end;

---

Ольга   (2004-12-04 07:20:00) [1]

Спасибо! Извиняюсь за наглость. Если бы не цейтнот...

---

begin...end   (2004-12-03 17:24:00) [2]

> Ольга   (03.12.04 17:10)

> Мастера, помогайте! Вопрос не сложный, но самой разбираться
> некогда - к утру нужно, чтобы программа работала.

Мда... Уже прямо вот так открытым текстом и говорят...

По сабжу. Вначале создайте TMenuItem, назначьте ему Caption, потом добавляйте его в меню с помощью TPopupMenu.Items.Add().

---

Александр Иванов   (2004-12-03 17:23:00) [3]

procedure TForm1.Button1Click(Sender: TObject);
var MI:TMenuItem;
begin
  While not Query.Eof do
   begin
     MI:=TMenuItem.Create(Form1);
     MI.Caption:=Query.FieldByName('Name').AsString;
     Popupmenu1.Items.Add(MI);
   end;
end;

---

Александр Иванов   (2004-12-03 17:23:00) [4]

procedure TForm1.Button1Click(Sender: TObject);
var MI:TMenuItem;
begin
  Query.First;
  While not Query.Eof do
   begin
     MI:=TMenuItem.Create(Form1);
     MI.Caption:=Query.FieldByName('Name').AsString;
     Popupmenu1.Items.Add(MI);
     Query.Next;
   end;
end;

---

Наверх