MainMenu - Dynamisch - Itemsabfrage

[shmia]

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.