PopUp Menu Kurzwahl

[Wilsandy]

Hallo zusammen,

ich erstelle ein Popup-Menu zur Laufzeit.

PopM := TPPopUp1.Create(Self);
PopM.Style := msXp;
PopupMenu := PopM;
Table3.First;
for I1 := 1 to Table3.RecordCount do begin
NewItem := TMenuItem.Create(Self);
NewItem.Caption := Table3.FieldByName('APL').AsString;
NewItem.Tag := I1;
NewItem.OnClick := TPPopUp1Click;
PopM.Items.Add(NewItem);
Table3.Next;
end;

Wenn ich das PopupMenu aufrufe sind die ersten Buchstaben (Kurzwahl) mit einem Strich unterlegt.
Wie bekomme ich den weg ??

Habe schon mehrfach im Forum danach gesucht, leider nichts gefunden.

Würde mich über eine Antwort freuen.

Gruß Sandy

[mashutu]

hi Wilsandy,

Zitat:

Zitat von Wilsandy

Wenn ich das PopupMenu aufrufe sind die ersten Buchstaben (Kurzwahl) mit einem Strich unterlegt.
Wie bekomme ich den weg ??

Gegenfrage: Warum willst Du denn die Kurzwahl wegmachen?
Es gibt auch Leute die gerne nur mit der Tastatur arbeiten und froh darueber sind ...

[soulies]

hoi,

gibt es vllt. wie bei labels die eigenschaft 'ShowAccelChar' ?

wenn ja - setz ma auf 'false' ;


cya

[Wilsandy]

ShowAccelChar wäre nicht schlecht !

gibt es aber leider nicht beim PopUp.

Gruß Sandy

[shmia]

Delphi-Quellcode:

NewItem.AutoHotKeys := False;