Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Июн

Как создать динамическое меню?

Posted by Chas under Заметки, Пост-обзор

У каждого меню должно быть еще и сабменю. Количество МЕНЮ и САБМЕНЮ заранее неизвестно и варьируется количеством записей в справочниках.

evg_m:

PopupMenutilte: TPopupMenu;
procedure TFormReestr.PopupMenutiltePopup(Sender: TObject);

var

  j: integer;

  s: string;

  m: TmenuItem;

begin

  for j:=self.PopupMenutilte.Items.Count-1 downto 0 do

  begin//чистим динамическую часть(список полей)

    m:=self.PopupMenutilte.Items.Items[j];

    if m.Tag<>0 then m.Free;

  end;

  for j:=self.DBGrid1.Columns.Count-1 downto 0 do

  begin//формируем динамическую часть(список полей)

    s:=self.DBGrid1.Columns.Items[j].Title.Caption;

    m:=tmenuitem.Create(self);

    m.Tag:=integer(self.DBGrid1.Columns.Items[j].Title);

    m.OnClick:=self.GetSorted;

    m.Caption:=s;

    self.PopupMenutilte.Items.Insert(0,m);

  end;

end;
procedure TFormReestr.GetSorted(sender: TObject);

var

  r: string;

  ms: string;

begin

  ms:=TmenuItem(sender).Caption;

  if (length(ms)>0) and (ms[1]='&') then delete(ms,1,1);

....

end;