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 после клика.

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