Problem mit dynamischem PopUp Menu

[marabu]

Hallo Stefan,

du solltest den menu items, welche als Untermenü fungieren, nicht den gleichen OnClick() event handler zuordnen, wie den items auf der untersten Ebene. Zumindest solltest du im event handler unterscheiden:

Delphi-Quellcode:

procedure TForm1.MenuItemClick(Sender: TObject);
var
  s: String;
begin
  with Sender as TMenuItem do
    if Count = 0 then 
      ShowMessage(Caption);
end;

Hintergrund ist, dass deine submenu items beim Überfahren mit der Maus automatisch das event OnClick() auslösen.

Grüße vom marabu