S sailxia Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-23 #2 遍歷每個目錄，每個目錄就是一個分類，裡面的文件就是一個菜單
E e- Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-24 #4 GetCursorPos(P); H := Screen.WorkAreaHeight - P.Y - 30; MenuHeight := GetSystemMetrics(SM_CYMENU); H1 := 0; for I := 0 to Menu.Count -1 do begin Inc(H1, MenuHeight); if H1 >= H then begin H1 := 0; Menu.Items.Break := mbBreak; end; end;
GetCursorPos(P); H := Screen.WorkAreaHeight - P.Y - 30; MenuHeight := GetSystemMetrics(SM_CYMENU); H1 := 0; for I := 0 to Menu.Count -1 do begin Inc(H1, MenuHeight); if H1 >= H then begin H1 := 0; Menu.Items.Break := mbBreak; end; end;
