dynamisches popupmenu und ereignis

[Christian Seehase]

Moin Horst,

mit Ansatz ging's mir eigentlich darum was in dem OnClick Event des MenuItems steht
Um hier gezielt bestimmte Items unterscheiden zu können, kannst Du deren Eigenschaft Tag nutzen.
Diese Eigenschaft ist frei nutzbar, so dass Du hier eine Kennung eintragen kannst.
Im OnClick kannst Du dann einfach mit einer case Anweisung die verschiedenen Auflösungen ausführen:

Delphi-Quellcode:

// OnClick der Menu Items
if not (Sender is TMenuItem) then exit;
case (Sender as TMenuItem).Tag of
  1 : // hier z.B. 800x600
  2 : // 1024x768
  //...
end;