캡션별로 PopupMenu 항목 정렬

Question

나는 TPopupMenu을 런타임에 추가했습니다. 나는 캡션으로 그들을 분류하고 싶다 : "Abc", "MyItem", "Zztop". 메뉴 항목 목록에서 Sort 메서드를 찾을 수 없습니다.

델파이 7.

Answer 1

런타임에 항목을 추가하기 때문에 선호하는 방법은 이미 정렬 된 항목을 추가하는 것입니다.
이미 항목이 포함 된 메뉴에 항목을 추가해야하는 경우 해당 항목의 MenuIndex을 원하는 값으로 설정하여 항목을 정렬 할 수 있습니다.
쉬운 방법은 Items를 정렬 된 StringList로 가져 와서 MenuIndex 양식을 적용하는 것입니다.

Procedure SortMenuItems(Menu: TPopupMenu); 
var 
    i: Integer; 
    sl: TStringList; 
begin 
    sl := TStringList.Create; 
    try 
    sl.Sorted := true; 
    for i := 0 to Menu.Items.Count - 1 do 
    begin 
     sl.AddObject(Menu.Items[i].Caption, Menu.Items[i]); 
    end; 
    for i := 0 to sl.Count - 1 do 
     TMenuItem(sl.Objects[i]).MenuIndex := i; 
    finally 
    sl.Free; 
    end; 
end;