hi,
mit folgender prozedur erstelle ich dynamisch menüs:<br>
<pre>
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;
</pre>
der erste buchstabe von der caption wird immer unterstrichen!<br>
diesen unterstrich will ich bei meiner historyllist nicht haben! wie verhindere ich den unterstrich?
gruß
markus
mit folgender prozedur erstelle ich dynamisch menüs:<br>
<pre>
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;
</pre>
der erste buchstabe von der caption wird immer unterstrichen!<br>
diesen unterstrich will ich bei meiner historyllist nicht haben! wie verhindere ich den unterstrich?
gruß
markus
Comment