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

[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ß