TMenuItem, automatisches & in Caption (trotz AutoHotkeys:=maManual)

[arc]

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!

[Volker Z.]

Hallo,

versuch es doch mal so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  PopupMenu_Company_List.AutoHotkeys := maManual
end;

procedure TForm1.AddToCompanyList(s:string);
var MI:TMenuItem;
begin
  MI:=TMenuItem.Create(PopupMenu_Company_List);
  with MI do
  begin
    Caption:=s;
    OnClick:=CompanyListClick;
  end;
  PopupMenu_Company_List.Items.Add(MI);
end; 

procedure TForm1.CompanyListClick(Sender:TObject);
var MI:TMenuItem;
begin
  MI:=Sender as TMenuItem;
  Edit_Company.Text:=MI.Caption;
end;

Gruß

[arc]

Es hat geklappt, vielen Dank! Also übernimmt ein TMenuItem die Eigenschaft auch wenn ich statt maParent ein maManual stehen habe. Ärgerlich aber gut zu wissen.

[Volker Z.]

Hallo,

Zitat:

Also übernimmt ein TMenuItem die Eigenschaft auch wenn ich statt maParent ein maManual stehen habe. Ärgerlich aber gut zu wissen.

Steht so auch in der OH:

Zitat:

Abhängig vom Wert der Eigenschaft AutoHotkeys des Menübefehls, der einem Untermenü übergeordnet ist, passt das Menü gegebenenfalls das Tastenkürzel für dieses Untermenü an.

Gruß