VPF::как правильно убить меню - Форум программистов

Illusion Dolphin

Дата 23.7.2004, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Цитата

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

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

...

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Girder

Дата 23.7.2004, 18:48 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155

Ну т.к. ты все равно не сможеш отобразить два всплывающих меню, то можно 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.

--------------------

Как слышим, так и пишим.
Истина где-то там...

Петрович

Дата 23.7.2004, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

Цитата

А то строку 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 будет уничтожен автоматически при уничтожении формы.

--------------------

Все знать невозможно, но хочется

p0s0l

Дата 25.7.2004, 03:48 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

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

--------------------

С уважением, г-н Посол.

_hunter

Дата 25.7.2004, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

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

а мне именно динамически хочется

--------------------

Tempora mutantur, et nos mutamur in illis...

Петрович

Дата 25.7.2004, 17:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

Цитата

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

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

--------------------

Все знать невозможно, но хочется

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »