VPF::динамическое popup menu - Форум программистов

ziga

Дата 8.6.2009, 10:22 (ссылка)

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

Загрузка ...

Опытный

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

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

Создаю попап меню

Код


  oqExemPM.Execute;
  oqExemPM.first;
  while not oqExemPM.Eof do
  begin
    t := TMenuItem.Create(self);
    with t do
    begin
      tag := oqExemPM.FieldByName('id_mup').AsInteger;
      Caption := oqExemPM.FieldByName('name').AsString;
      //OnClick :=
    end;

    pmExem.Items.Add(t);
    oqExemPM.next;
  end;
  oqExam.Close;

Как мне прописать действие на OnClick ?
что бы при наджатии на любой пункт меню вызывалась функция и как через Sender вытащить tag присовеный итему?

Keeper89

Дата 8.6.2009, 10:37 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure MenuClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MenuClick(Sender: TObject);
begin
  ShowMessage(IntToStr((Sender as TMenuItem).Tag));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  mi: TMenuItem;
  i: Integer;
begin
  for i:=1 to 10 do
  begin
    mi := TMenuItem.Create(PopupMenu1);
    // Дальше ваше заполнение
    mi.Caption := IntToStr(i);
    mi.Tag := i;
    mi.OnClick := MenuClick;
    PopupMenu1.Items.Add(mi);
  end;
end;

end.

Добавлено через 43 секунды

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure MenuClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MenuClick(Sender: TObject);
begin
  ShowMessage(IntToStr((Sender as TMenuItem).Tag));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  mi: TMenuItem;
  i: Integer;
begin
  for i:=1 to 10 do
  begin
    mi := TMenuItem.Create(PopupMenu1);
    // Дальше ваше заполнение
    mi.Caption := IntToStr(i);
    mi.Tag := i;
    mi.OnClick := MenuClick;
    PopupMenu1.Items.Add(mi);
  end;
end;

end.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

ziga

Дата 8.6.2009, 10:45 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо

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