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

Проблема с 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 вся ветка

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



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