Method pointer and regular procedure incompatible

Question

I have an app, which has multiple forms. All these forms have a PopupMenu. I build the menu items programatically, all under a common root menu item. I want ALL the menu

Answer 1

You could choose one of these:

1. Derive your forms from a common ancestor and declare the method in it so it's available to descendants
2. Use a global instance of a class (e.g. data module) shared by all forms
3. Use a procedure as a fake method like this:

---

procedure MyClick(Self, Sender: TObject);
begin
  //...
end;

var
  M: TMethod;
begin
  M.Data := nil;
  M.Code := @MyClick;
  MyMenuItem.OnClick := TNotifyEvent(M);
end;