экземпляр TPopupMenu я создаю динамически а как его освобождать?
( ничего типа OnExit у него нет )

_hunter Была подобная тема - при активизации метода Popup, меню ведет себя как модальное окно, то есть можно писать так:

Код

try    Menu := TPopupMenu.Create(Self);    Menu.Items.Add(TMenuItem.Create(Self));    Menu.Items[0].Caption := 'sdf';    Menu.Popup(100, 100);  finally    FreeAndNil(Menu);  end;

спасибо!
оно -- родимое

Это сообщение отредактировал(а) _hunter - 21.7.2004, 19:26

обнаружил одну проблему -- при щелчке на меню форма отмерзает раньше срабатывания обработчика клика по меню
как с этим бороться?

Цитата

при щелчке на меню форма отмерзает раньше срабатывания обработчика клика по меню

Еще раз, и попонятнее

Попробуй после
Menu.Popup(100, 100);
добавить
Application.ProcessMessages;

вот теперь оно
спасибо

Если я не ошибаюсь, то справка гласит, что нужно сначала вызвать Release, а потом уже разрушать объект, т.е.:

Код

Код   try   Menu := TPopupMenu.Create(Self);   Menu.Items.Add(TMenuItem.Create(Self));   Menu.Items[0].Caption := 'sdf';   Menu.Popup(100, 100); finally   Menu.Release; //!   FreeAndNil(Menu); end;

Если я не прав - поправьте...

Цитата

Если я не ошибаюсь, то справка гласит, что нужно сначала вызвать Release, а потом уже разрушать объект, т.е.:

А с каких пор у tPopupMenu есть метод Release ?
И вообще, что-бы он мог делать, если-бы даже был?

Петрович ты сказал верно на 100%...

Код

finally  Menu.FreeOnRelease;  Menu:=nil; end;

Я просто не очень дружелюбно отношусь к Application.ProcessMessages... Так, как я теперь написал - верно?

Цитата

Я просто не очень дружелюбно отношусь к Application.ProcessMessages

И я тоже.

Цитата

Так, как я теперь написал - верно?

Нет. FreeOnRelease может быть полезен лишь для тех объектов, которые связаны с COM-объектами. А Menu:=nil; не уничтожает объект!
А чем просто FreeAndNil(Menu); не подходит?

Menu:=nil - это присвоению указателю значение ноль. И если var Menu:TPopupMenu определенно не глобально(или данный указатель не проверяется ни где на ноль, т.е if Menu<>nil then...), то достаточно Menu.Free

Действительно что-то тут непонятно...

Код

_popupmenu:=Tpopupmenu.Create(nil);  _popupmenu.Images:=DBKernel.imageList; //задаю изображения  AddDBContMenu(_popupmenu.items,finfo); //добавляю пункты и события  _popupmenu.Popup(x,y); а)  _popupmenu.FreeOnRelease; б)  _popupmenu.Free;  _popupmenu:=nil;

Это так я в своей программе реализую своё меню. Оно создаётся прямо на лету вместе с назначением событий (это параметр finfo, но это не важно). Самое интересное то, что если оставить толко пункт а), то всё работает, хотя возникает ощущение, что объект действительно не разрушается (но всё работает!). Однако же если оставить пункт б), то тогда при клике на пункт меню не обрабатывается событие, назначенное этому пункту!!! Значит Free - это не совсем верное уничтожение меню... А Application.ProcessMessages - с ним я уже однажды столько наловился ошибок, что теперь не хочу его использовать, т.к. не совсем понятно что в этой строчке будет выполняться...

Цитата

то тогда при клике на пункт меню не обрабатывается событие, назначенное этому пункту!!! Значит Free - это не совсем верное уничтожение меню..

Так ведь не кому обработать сообщение, ты его раньше разрушил, чем обработал сообщение.

Цитата

Так ведь не кому обработать сообщение, ты его раньше разрушил, чем обработал сообщение.

Да. Есть такая фича.
По мне так странно, но в виндах реализованно так - когда вы вызываете _popupmenu.Popup(...), то после клика по пункту меню, винды "закладывают" в очередь сообщение WM_COMMAND. Причем, именно "закладывают", т.е. делают PostMessage а не SendMessage. Запуск-же обработчика клика на пункт меню делается именно по WM_COMMAND. Поэтому, возврат из _popupmenu.Popup(...) происходит до обработки WM_COMMAND. Обработанно оно будет лишь после того как дело дойдет до цикла обработки сообщений.
Если-же сделать _popupmenu.Free сразу за _popupmenu.Popup(...) то, когда будет обрабатываться WM_COMMAND, пункта меню по которому кликнули уже не будет существовать!.
Если-же не делать _popupmenu.Free (вар. a), то объект меню и его пункты не будут уничтожены, и соответственно, будет нормально вызван обработчик клика. Даже не смотря на _popupmenu:=nil - ссылка на кликнутый пункт передается в самом WM_COMMAND.
Вызов Application.ProcessMessages перед _popupmenu.Free решает эту проблему, хотя согласен, далеко не лучшим образом.