Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Очень длинные меню

Данный код изменяет количество пунктов меню в зависимости от текущего разрешения. Данная схема работает безукоризненно. В нижеприведенном коде mnuView - выводимое меню, HandleMenuClick - назначенный обработчик для события OnClick.


procedure TfrmMain.LoadViewMenu;
var

  itemNum: integer;
  mnu: TMenuItem;
  menuItemHeight: integer;
  itemsPerColumn: integer;
begin

  {удаляем все видимые пункты меню}
  while mnuView.Count > 0 do
  begin
    {метод Free удаляет пункт меню}
    mnuView.Items[0].Free;
  end;

  {находим высоту каждого пункта меню.
  Значение 2 получено в результате экспериментов}

  menuItemHeight := GetSystemMetrics(SM_CYMENU) + 2;

  {вычисляем количество пунктов в колонке меню}
  itemsPerColumn := screen.height div menuItemHeight;

  {создаем пункты меню}
  for itemNum := 0 to 99 do
  begin
    mnu := TMenuItem.Create(self);
    mnu.caption := 'Пункт ' + inttostr(itemNum);

    {при необходимости начинаем с новой колонки}
    if (itemNum mod itemsPerColumn = 0) and (itemNum > 0) then
    begin
      mnu.break := mbBarBreak;
    end;

    {назначаем обработчик события OnClick}
    mnu.OnClick := HandleMenuClick;

    mnuView.Add(mnu);
  end;
end;

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.