Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];
Вниз
Динамическое создание 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c