Скачать: CL | DM;

Динамическое создание PopupMenu   Найти похожие ветки 

← →
Ольга   (2004-12-03 17:10) [0]

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

Есть 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-03 17:23) [1]

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) [2]

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;

---

← →
begin...end ©   (2004-12-03 17:24) [3]

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

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

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

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

---

← →
Ольга   (2004-12-04 07:20) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.975 c