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

MainMenu   Найти похожие ветки 

← →
Alex-21   (2003-06-05 21:46) [0]

Здравствуйте, Мастера!!!
Пишу такой код:
begin
n1:= False;
for i:=0 to MainMenu1.Items[2].Count-1 do
begin
item3:= MainMenu1.Items[2].Items[i];
if item3.Caption = "Alex" then n1:= True;
end;
if n1 = False then
begin
item4 := TMenuItem.Create(MainMenu1);
MainMenu1.Items.Items[2].Add(Item4);
item4.Caption:="Alex";
end;
end;
Здесь почему-то происходят глюки, т.е. сначала нормально всё происходит: добавляется item "Alex" в MainMenu1 и после этого не добавляется.
Но когда мышкой подвожу к item[2] и нажимаю на неё, потом ещё раз, что закрыть выпадающее меню. И после этого пробую выполнить вышеприведенный код, то тут почему-то добавляется ещё один item "Alex" и стало их уже два в MainMenu1. Кто-нибудь знает, почему так происходит?

---

← →
ladybird   (2003-06-05 21:58) [1]

if n1 = False then
begin
item4 := TMenuItem.Create(MainMenu1);
MainMenu1.Items.Items[2].Add(Item4);
item4.Caption:="Alex";
end;
end

???

---

← →
Alex-21   (2003-06-06 20:34) [2]

Я что-то не понял. Я так понимаю, что неправильно написан код: MainMenu1.Items.Items[2].Add(Item4). Или как? Но тут ничего не меняется, все равно глюк происходит. n1 будет равно False после клика.

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.016 c