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

Быстрое создание PopupMenu   Найти похожие ветки 

← →
Questioner   (2004-04-06 17:08) [0]

Есть проблема - медленно создается TPopupMenu для относительно большого количества элементов (200 и более).
Про то зачем мне это надо лучше не спрашивайте :)

создаю просто:


.......
 pmPages.Items.Clear;
 for i:=0 to FCount-1 do
 begin
   mi := TMenuItem.Create(Self);
//    mi.Caption := IntToStr(i);
   mi.Tag := i;
   mi.OnClick := PopupClick;
   pmPages.Items.Add(mi);
 end;
 P := buMenu.ClientToScreen(Point(0, 0));
 pmPages.Popup(P.X, P.Y);
.......


Работает достаточно быстро, но если раскоментарить присвоение Caption, то жутко тормозит..

Может кто-нибудь предложит пути решения проблемы..

---

← →
TUser ©   (2004-04-06 17:29) [1]

Бедный юзер. Но, если оно действительно так уж нужно - можно попробовать создавать итемы при показывании итемов более высокго уровня. Там они у тебя наверняка не в виде единого меню, а в виде "дерева". Вот, когда менюшка i-го уровня показывается - надо создавать всех ее деток уровны i+1.

---

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

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



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