Быстрое создание 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.

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