Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.19;
Скачать: 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 вся ветка

Текущий архив: 2004.12.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.058 c
3-1100508839
Фазер
2004-11-15 11:53
2004.12.19
Ещё один вопрос по except


14-1101641914
ИМХО
2004-11-28 14:38
2004.12.19
Кого лучше завести в качестве домашн.животного: кошку или собаку?


1-1102367669
Поручик
2004-12-07 00:14
2004.12.19
Что-то я торможу (


1-1101900153
Larisa
2004-12-01 14:22
2004.12.19
Подскажите, пожалуйста, как динамически добавить


1-1102062336
Frozzen
2004-12-03 11:25
2004.12.19
Антиотладочные приемы