PopupMenue hat keinen ItemIndex ?

[nachtstreuner]

Hallo Delphifreunde,

ich erzeuge zur Laufzeit ein PopupMenue mit entsprechenden Einträgen.

Wie kann ich den text des angeklickten Menüeintrages herausfinden ? ItemIndex funzt nicht.

Hiermal der CODE :

Delphi-Quellcode:

procedure THauptForm.GenerateSkinlist;
var
 I: integer;
 A: TMenuItem;
 SL: TStringList;
begin
  SL := TStringList.Create;
  SkinHaupt.GetSkinNames(SL);
  advPopupMenu1.BeginUpdate;
  advPopupMenu1.Items.Clear;
  for I := 0 to SL.Count - 1 do begin
  A := TMenuItem.Create(Self);
  A.Caption := SL[I]; // Text
  A.OnClick := MenuClick; // Diese Prozedur reagiert auf die Klicks
  advPopupMenu1.Items.Add(A);
  end;
  advPopupMenu1.EndUpdate;
  FreeAndNil(SL);
end;

procedure THauptForm.MenuClick(Sender: TObject);
begin
  SkinHaupt.SkinName := advPopupMenu1.Items[advPopupMenu1.ItemIndex];

end;

FEHLER : undeklarierter Bezeichner : ItemIndex.

[himitsu]

Zitat:

FEHLER : undeklarierter Bezeichner : ItemIndex.

Vielleicht weil es ItemIndex nicht gibt und auch noch nie gab? (ist ja auch keine ListBox )

Tipp: Sender

[FBrust]

Hallo,

versuch doch mal folgendes:

Delphi-Quellcode:

procedure THauptForm.MenuClick(Sender: TObject);

begin
    SkinHaupt.SkinName := (Sender as TMenuItem).Caption;

end;

Gruß
Frank

[nachtstreuner]

Danke himitsu, dieser Hinweis löst meine eigentliche Frage auch nicht.

Anhand des angeklickten Menüeintrages soll eine gewisse Aktion ausgeführt werden. Hierzu benötige ich die Caption des gewählten Menüeintrages.

[nachtstreuner]

FBrust,

vielen Dank !!!!!!!!!!!!!!!!

Das war die Lösung.

[himitsu]

Zitat von nachtstreuner:

Das war die Lösung.

Ich dachte nicht?

[DeddyH]

Du hast ja nur Sender und nicht Caption genannt