Hallo Leute, wie kann man ein MainMenu komplett ( in der schleife ) durchlaufen ?
ich habe es so probiert aber sobald elemente im Untermenu vorhanden sind klappt es nicht mehr???
Delphi-Quellcode:
//Für Obere Menüitems
for i := 0 to fMenu.Items.Count -1 do
begin
fMenu.Items[i].OnDrawItem := MenuDraw;
end;
//Für Unteritems
for i := 0 to fMenu.Items.Count -1 do begin
for j:= 0 to fMenu.Items[i].Count -1 do
if fMenu.Items[i].Items[j].caption = '-' then
begin
fMenu.Items[i].Items[j].OnDrawItem := SeparatorDrawItem;
fMenu.Items[i].Items[j].OnMeasureitem := MeasureSeparator;
end
else
begin
fMenu.Items[i].Items[j].onDrawItem := MenuItemDrawItem;
fMenu.Items[i].Items[j].OnMeasureitem := MenuItemMeasureItem;
end;
end;
danke für die hilfe gruss dot