Ich habe bereits diesen Artikel entdeckt und umgesetzt
http://delphi.about.com/od/delphitip...-menu-item.htm
Leider bleibt mein Problem bestehen. Worum geht es?
Neben einem Eingabefeld soll eine Liste möglicher Vorgaben aus einem PopUp Menü wählbar sein. Bereits getätigte Eingaben speicher ich jeweils als neues Menüelement.
Speichern eines neuen Eintrags:
Delphi-Quellcode:
procedure TForm1.AddToCompanyList(s:string);
var MI:TMenuItem;
begin
MI:=TMenuItem.Create(PopupMenu_Company_List);
with MI do
begin
AutoHotkeys:=maManual; // prevents automatic & to be added...
Caption:=s;
OnClick:=CompanyListClick;
end;
PopupMenu_Company_List.Items.Add(MI);
end;
Wenn ich im Debugger in der letzten Zeile MI.Caption anschaue, ist dort kein & vorhanden. So wie es eigentlich sein soll.
Zuweisung:
Delphi-Quellcode:
procedure TForm1.CompanyListClick(Sender:TObject);
var MI:TMenuItem;
begin
MI:=Sender as TMenuItem;
// ggf StripHotKey nutzen
Edit_Company.Text:=MI.Caption;
end;
Hier taucht aber urplötzlich ein & auf, im PopupMenu_Company_List ist AutoHotkeys ebenfalls auf maManual gesetzt. Ich könnte hier sicherlich StripHotKey nehmen, ich möchte jedoch wissen woher das & kommt.
Vielen Dank schonmal!
