Ne Art Switch umsetzen

[Die Muhkuh]

Hi,

du könntest dem Menüitem den Tag 1 geben, dem nächsten Tag2 etc.

Dann machst du eine Procedure:

Delphi-Quellcode:

procedure MenuClick(Sender: TObject);
begin
  case TMenuItem(Sender).Tag of
    1: shellexecute...
    2: ...
    ...
  end;
end;

diese Procedure weist du nun allen Menüitems zu.