экземпляр 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 решает эту проблему, хотя согласен, далеко не лучшим образом.

Цитата

Вызов Application.ProcessMessages перед _popupmenu.Free решает эту проблему, хотя согласен, далеко не лучшим образом.

А есть ли лучший способ? Меня это уже давно интересует... А то строку Application.ProcessMessages в коде я обычно читаю как "выполни, пожалуйста что-нибудь то, что сейчас находится в очереди, а я при этом буду молиться, что это именно то, что мне надо" ...

Ну т.к. ты все равно не сможеш отобразить два всплывающих меню, то можно Menu:TPopupMenu объявить глобально, ну а далее так:

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Menus; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Button3: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private    { Private declarations }  public    { Public declarations }    procedure ShowPopup();  end; var  Form1: TForm1;  pMenu:TPopupMenu=nil; implementation {$R *.dfm} procedure TForm1.ShowPopup(); begin try  pMenu.Free; except end; pMenu := TPopupMenu.Create(Self); pMenu.Items.Add(TMenuItem.Create(Self)); pMenu.Items.Add(TMenuItem.Create(Self)); pMenu.Items[0].Caption:='Button2'; pMenu.Items[0].OnClick:=Button2Click; pMenu.Items[1].Caption:='Button3'; pMenu.Items[1].OnClick:=Button3Click; pMenu.Popup(300, 300); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowPopup; end; procedure TForm1.Button2Click(Sender: TObject); begin Caption:='XXX'; end; procedure TForm1.Button3Click(Sender: TObject); begin Caption:='Form1'; end; procedure TForm1.FormDestroy(Sender: TObject); begin try  pMenu.Free; except end; end; end.

Цитата

А то строку Application.ProcessMessages в коде я обычно читаю как "выполни, пожалуйста что-нибудь то, что сейчас находится в очереди, а я при этом буду молиться, что это именно то, что мне надо"

Отлично! Лучше трудно сказать!

Цитата

А есть ли лучший способ?

Ну вообщем, хотел предложить делать _popupmenu.Free из обработчика клика. Но, вариант Girder мне понравился больше. Только, я-бы сделал чуть-чуть иначе:

Код

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm)   Button1: TButton;   Button2: TButton;   Button3: TButton;   procedure Button1Click(Sender: TObject);   procedure Button2Click(Sender: TObject);   procedure Button3Click(Sender: TObject);   procedure FormCreate(Sender: TObject); private   { Private declarations }   pMenu :TPopupMenu; public   { Public declarations }   procedure ShowPopup(); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin  pMenu := TPopupMenu.Create(Self); end; procedure TForm1.ShowPopup(); begin  pMenu.Items.Clear;  pMenu.Items.Add(TMenuItem.Create(Self));  pMenu.Items.Add(TMenuItem.Create(Self));  pMenu.Items[0].Caption:='Button2';  pMenu.Items[0].OnClick:=Button2Click;  pMenu.Items[1].Caption:='Button3';  pMenu.Items[1].OnClick:=Button3Click;  pMenu.Popup(300, 300); end; procedure TForm1.Button1Click(Sender: TObject); begin  ShowPopup; end; procedure TForm1.Button2Click(Sender: TObject); begin  Caption:='XXX'; end; procedure TForm1.Button3Click(Sender: TObject); begin  Caption:='Form1'; end; end.

Делать pMenu.Free в таком случае вообще не надо. Поскольку его владельцем является tForm1, то pMenu будет уничтожен автоматически при уничтожении формы.

Может в таком случае легче будет вытащить на форму PopupMenu ?... А перед деланьем pMenu.Popup(...) забивать в него нужные итемы...

вот вот -- при этом весь смысл динамического создания теряется
а мне именно динамически хочется

Цитата

вот вот -- при этом весь смысл динамического создания теряется

На сколько я понимаю, главный смысл, динамически создавать итемы а не меню.
Если-же смущает что после первого отображения меню (ShowPopup) в нем останутся не уничтоженные итемы до следующего вызова ShowPopup, то это решабельно. Достаточно в конец текста каждого обработчика выбора итема (Button2Click,Button3Click) добавить pMenu.Items.Clear. Тогда, в промежутках между вызовами ShowPopup не будут расходоваться лишние ресурсы для итемов. А само меню, почти ничего не стоит .