Du musst natürlich einen
eigenen Eventhandler für deine dynamischen Menuitems erstellen:
Delphi-Quellcode:
procedure TForm1.DynamikMenuItemClick(Sender: TObject);
begin
Caption:= '*** '+TMenuItem(Sender).Caption+ ' ***';
end;
Wenn du diese Procedure in deine
Unit kopierst und dann Shift+Strg+C drückst (=Codevervollständigung)
und dann noch folgendes änderst:
Delphi-Quellcode:
// NewItem.OnClick:=DateiClick; // Alt
NewItem.OnClick:=DynamikMenuItemClick;
sollte es tun.