.TAG Wert auswerten?

[MisterSonic]

Hallo Leute,

ich füge über folgenden Code zur Laufzeit beliebig viele Menu-Elemente hinzu

Delphi-Quellcode:

TMI := NewItem( TD3.ReadString(TS2[i],Coment_Str,''), scNone, false, true,Form1.MenuClick, 0, '' );
TMI.Tag := I;
Form1.PopupMenu1.Items[0].Add( TMI );

Das klappt auch ganz gut, aber nun möchte ich in der Routine "Form1.MenuClick" gern über den ".TAG" Wert herausfinden welcher Menu Eintrag ausgewählt wurde und habe keine Ahnung wie. Hoffe mir kann jemand helfen.

MfG Patrick.

[AlphaBug]

Hallo MisterSonic,

die Methode Form1.MenuClick müsste in etwa so aussehen in der Deklaration:
procedure MenuClick(Sender: TObject); Dann ist das Menü-Item im Parameter Sender eingetragen, und du kommst so an den Tag:

Delphi-Quellcode:

procedure MenuClick(Sender: TObject);
var MenuTag: Integer;
begin
  MenüTag := TMenuItem(Sender).Tag;
end;

Das ganze ist eine einfache Typ-Konvertierung.

Ich hoffe, ich habe die Frage so richtig verstanden.