Itemindex в Popupmenu

[Lich]

Создаю динамически 5 item'ов в Popupmenu...Потом хочу, например обратиться к 2 item'у и в memo записать текст, который он содержит, но вот беда, не могу обратиться программно, а точнее не могу получиться index того, на что я кликнул...Пробовал menuitem - безрезультатно ..

[Баламут]

Не знаю, насколько я правильно все понял... Может так?

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  m: TMenuItem;
begin
  for i := 0 to 4 do begin
    m := TMenuItem.Create(PopupMenu1);
    m.Caption := 'Меню ' + IntToStr(i);
    m.OnClick := MenuClick;
    PopupMenu1.Items.Add(m);
  end;
end;

procedure TForm1.MenuClick(Sender: TObject);
begin
  Memo1.Lines.Add((Sender as TMenuItem).Caption);
end;

end.

[Lich]

Сообщение от Баламут

Не знаю, насколько я правильно все понял... Может так?

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  m: TMenuItem;
begin
  for i := 0 to 4 do begin
    m := TMenuItem.Create(PopupMenu1);
    m.Caption := 'Меню ' + IntToStr(i);
    m.OnClick := MenuClick;
    PopupMenu1.Items.Add(m);
  end;
end;

procedure TForm1.MenuClick(Sender: TObject);
begin
  Memo1.Lines.Add((Sender as TMenuItem).Caption);
end;

end.

Все правильно понял, и все работает, только если не сложно объясни что за код вот это - (Sender as TMenuItem).Caption...

[Баламут]

Sender - указатель на объект, вызвавший метод. В данном случае я точно знаю, что обработчик вызывается объектом типа TMenuItem, потому и не пишу лишних проверок.

[mutabor]

Это приведение к типу, можно еще так записать: TMenuItem(Sender).Caption...