Проблема с 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]

Только что откомпил, неработает, не удаляет он элемент из меню (при этом ничего не пишеца)

StripHotkey. И код сократится.

← →
sensor (2004-04-27 23:02) [7]

звиняйте, все пашет =)
но это в пустом проекте. а у меня меню вызываеца при нажатии на иконку проги в трее. там не удаляеца пункт меню...

If S="C:\winnt\1.bmp1" Then begin ?

Проблема с PopupMenu.items.Delete Найти похожие ветки