[Помидоркин]

Код:

procedure ReceiveFile (FileName: String);
begin
    ...
//некое действие
    ...
end;

Код:

procedure TForm1.FormCreate(Sender: TObject);  
var mi: TMenuItem;
     LF: TStringList;    i: Byte;
begin
 
                .......................................

  mi:= TMenuItem.Create(Self);
  mi.Caption:= LF[i];
  mi.Hint:= Optns.ReadString(LF[i]);

  mi.OnClick:= //Вот тут и загвоздочка

  PopupMenu2.Items.Insert(1, mi);

              ................................................

end;

Есть процедура принимающая параметр, динамически создается MenuItem, задача в том что бы на mi.OnClick выполнялась procedure ReceiveFile (FileName: String)

[Bargest]

Делаешь метод, в параметрах Sender. Можно создать автоматом дабл-кликом на идентичном объекте (меню итем), потом убрать его как обработчик. Ну и назначаешь.

[Помидоркин]

Сообщение от Bargest

Делаешь метод, в параметрах Sender. Можно создать автоматом дабл-кликом на идентичном объекте (меню итем), потом убрать его как обработчик. Ну и назначаешь.

Можно пример?

[NumLock]

Код:

  private
    { Private declarations }
    procedure Click1Click(Sender: TObject);

[Помидоркин]

Ну и назначаешь

Как понять "назначаешь"? mi.OnClick - событие (TNotifyEvent), обработчик это процедура (или как правило процедура?) для компонента добавленного в DesignTime обработчик назначаю в инспекторе объектов, а как это делается для динамически создаваемых компонентов? Вроде что-то с указателями связано, но я не понял.
Еще вопрос в догонку: у TMenuItem есть свойство Hint: String, оно как то по-другому работает по сравнению с аналогичным свойсвом, например, у кнопки?

[Alegun]

На самом деле всё очень просто. Предварительно создаёте свой обработчик, идентичный по входным/выходным параметрам "родной" процедуре обработки для создаваемого компонента напр.

Код:

private
procedure MyClick(Sender: TObject);
...

procedure TForm1.MyClick(Sender: TObject);
begin
// здесь всё что нужно выполнить при событиии
end;

затем при создании назначаете

Код:

...
mi.OnClick:=MyClick;
...

вот и всё