shortcut vorhanden?

[markus lemcke]

hi,

<pre>
hi,

mit folgender prozedur lege ich menüpunkte an:

procedure addmenu(menu: tmenuitem;caption:string;shortcutz : tshortcut;klick:TNotifyEvent;besitzer:tform);
var
newitem : tmenuitem;
begin
newitem := tmenuitem.create(besitzer);
newitem.caption := caption;
newitem.shortcut := shortcutz;
newitem.onclick := klick;
if newitem.caption <> '' then menu.Add(newitem);
end;

der aufruf sieht so aus:
//menü hinzufügen
addmenu(Datei1,filehistorylist.Strings[j],texttoshortcut(''),menuklick,form1);

wenn bei einem selbst erstellten menüpunkt folgende codezeile ausgeführt wird:

HotKey.Hotkey := GetItem(ListBox.Items[ListBox.ItemIndex]).ShortCut;

bekomme ich eine zugriffsverletzung!
weiß jemand warum?
ist der shortcut nicht da?
wie kann ich das abfangen?

gruß

markus

</pre>

[markus lemcke]

<pre>
ich habe mal etwas rum experimentiert:

procedure TFormShortCut.ListBoxClick(Sender: TObject);
var
skey : string;
begin
if GetItem(ListBox.Items[ListBox.ItemIndex]).ShortCut = 0 then Showmessage('NL');
skey := ShortCutToText(GetItem(ListBox.Items[ListBox.ItemIndex]).ShortCut);
Showmessage(skey);
HotKey.Hotkey := GetItem(ListBox.Items[ListBox.ItemIndex]).ShortCut;
end;

es scheint so als ob es shortcut bei meinen selbstangelegtewn menüs irgendwie gar nicht gibt!

kann man da nicht irgendwie auf existens prüfen bzw. warum gibt es die nicht?

gruß

markus
</pre&gt