Ich erzeuge mit folgendem Procedureauszug Enträge im PopUp Menü:
Code:
var s:string;
i,j:integer;
Item:TMenuItem;
begin
s:='Eintrag=blabla-"Hint"';
Item:=TMenuItem.Create(Self);
j:=Pos('=',s);
If j<>0
then Item.Caption:=copy(s,1,j-1)
else
begin
j:=Pos('-',s);
If j<>0
then Item.Caption:=copy(s,1,j-1)
else Item.Caption:=s;
end;
j:=Pos('-',s);
If j<>0
then Item.Hint:=copy(s,j+2,Length(s)-j-2)
else Item.Hint:='';
PopUpMenu1.Items.Add(Item);
Doch wenn ich über den Eintrag im PopUp Menü zur Laufzeit drüber fahre, dann wird der Hint nicht angezeigt. Aber warum nicht? Es gibt doch aber auch kein ShowHint was man auf True setzen müßte.