String aus zur Laufzeit erstelltem PopUpMenü zurückgeben?

[Grolle]

Hallo,
ist es möglich einen String aus einem zur Laufzeit erstelltem PopUpMenü zurückzugeben?
Die PopUpMenü-Items erstelle ich ganz einfach aus einer Stringliste. Jetzt soll einfach die
ausgewählte Item-Caption zurückgegeben werden. Wie mache ich das?

Viele Grüße,

[marabu]

Hallo Stefan,

wenn du den menu items einen Handler für das Event OnClick() zugeordnet hast, dann kannst du einfach auf die Caption zugreifen:

Delphi-Quellcode:

procedure TDemoForm.MenuItemClick(Sender: TObject);
begin
  with Sender as TMenuItem do
    ShowMessage(Caption);
end;

Grüße vom marabu

[Grolle]

Hallo,

nein ich habe keinen Handler zugeordnet. Hier mein Text:

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
a : TMenuItem;
sl : TStringList;
i : integer;
begin
  sl :=TStringList.Create;
  sl.LoadFromFile(ExtractFilePath(ParamStr(0))+'daten\gruppen.txt');
  sl.Add('Alle Gruppen');
  for i := 0 to SL.Count - 1 do
   begin
    a := TMenuItem.Create(Self);
    a.Caption := SL[i];
    a.Hint    := SL[i];
    PopUpMenu1.Items.Add(a);
   end;
  sl.free;
end;

[ChrisE]

Zitat:

Zitat von Grolle

nein ich habe keinen Handler zugeordnet. Hier mein Text:

Dann weise ihn doch zu. Ich meine wie willst du sonst auf onClick reagieren?

Deinen Quelltext folgender maßen anpassen:

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
a : TMenuItem;
sl : TStringList;
i : integer;
begin
  sl :=TStringList.Create;
  sl.LoadFromFile(ExtractFilePath(ParamStr(0))+'daten\gruppen.txt');
  sl.Add('Alle Gruppen');
  for i := 0 to SL.Count - 1 do
   begin
    a := TMenuItem.Create(Self);
    a.Caption := SL[i];
    a.Hint    := SL[i];
    // Hier neu
    a.OnClick := MenuItemClick;
    // ende neu
    PopUpMenu1.Items.Add(a);
   end;
  sl.free;
end;

und dann die methode von marabu

Zitat:

Zitat von marabu

Delphi-Quellcode:

procedure TDemoForm.MenuItemClick(Sender: TObject);
begin
  with Sender as TMenuItem do
    // mach was du willste mit Caption
end;

Dann geht sollte es gehen

[Grolle]

Hallo,
alles klar. Klappt so. Besten Dank! :thumb:

[Grolle]

Hallo,
klappt doch noch nicht so ganz. Der erste Buchstabe, der zurückkommt ist ein &.
Dieser dürfte eigentlich gar nicht existieren :gruebel:

[freak4fun]

Das '&' wird automatisch hinzu gefügt, damit man den Eintrag über die Taste (Buchstabe danach) anwählen kann. ;)

MfG
freak

[Grolle]

Ok, dann muss ich den einfach abschneiden.

Danke!

[freak4fun]

Zitat:

Zitat von Grolle

Ok, dann muss ich den einfach abschneiden.

Ja, aber ich bin mir nicht sicher, ob das '&' immer am Anfang steht. Eigentlich kann es überall sein. Ich würde das mal testen, wenn 2 Einträge den gleichen Anfangsbuchstaben haben. :gruebel: Aber 100% kann ich das nicht sagen. ;)

MfG
freak

[Grolle]

Hallo,
mit StringReplace klappt das einwandfrei.

Viele Grüße...