Текущий архив: 2003.06.19;
Скачать: 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 вся ветка
Текущий архив: 2003.06.19;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.043 c
