Поскольку метод OnClick является свойством, то при динамическом создании
элемента меню вы можете назначить имя метода обработчику OnClick:
|
|
theMenuitem.OnClick :=
TheOnClickHandler; |
Затем, в обработчике OnClick, вы приводите sender к TMenuItem и читаете имя:
|
|
procedure
theform.TheOnClickHandler(Sender: TObject); var
fName: String; begin
fName := TMenuItem(Sender).name;
... end; | |