Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
ВнизПроблема с PopupMenu.items.Delete Найти похожие ветки
← →
sensor (2004-04-27 02:16) [0]Уважаемые мастера!
Встала проблема, поясню в чем: есть у меня попапменю. Содержимое в нем в нем допустим (2 пункта) - C:\winnt\1.bmp , C:\winnt\system32\2.bmp. Как мне его удлаить во время работы программы, если содержимое меню добавляется во время работы программы. Т.е. простоPopupMenu.Items.Delete(i)
. А удалить надо именно элемент с определенным значением (например C:\winnt\1.bmp). ну или как мне вычислить номер элемента (i) с заголовком "C:\winnt\1.bmp", что бы его просто удалить через ...Delete(i).?
Заранее спасибо.
← →
R (2004-04-27 03:34) [1]procedure TForm1.Button1Click(Sender: TObject);
var
I:Word;
S:String;
Flags:TReplaceFlags;
begin
Flags:=[rfReplaceAll];
For I:=0 To PopupMenu1.Items.Count-1 Do begin
S:=PopupMenu1.Items[I].Caption;
S:=StringReplace(S,"&","",Flags);
If S="C:\winnt\1.bmp1" Then begin
PopupMenu1.Items.Delete(I);
BREAK;
end;
end;
end;
← →
R (2004-04-27 08:25) [2]I:SmallInt;
← →
sensor (2004-04-27 22:45) [3]К сожалению, не работает оно
← →
Алхимик © (2004-04-27 22:53) [4]Спорнём на пончик, что работает?
← →
sensor (2004-04-27 23:00) [5]Только что откомпил, неработает, не удаляет он элемент из меню (при этом ничего не пишеца)
← →
Gero © (2004-04-27 23:01) [6]StripHotkey. И код сократится.
← →
sensor (2004-04-27 23:02) [7]звиняйте, все пашет =)
но это в пустом проекте. а у меня меню вызываеца при нажатии на иконку проги в трее. там не удаляеца пункт меню...
← →
Алхимик © (2004-04-27 23:19) [8]
If S="C:\winnt\1.bmp1" Then begin
?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c