TMenu вместо menu...

Автор:KaMPiLeR
Дата:07.10.2019
Просмотров:910
Скачиваний:362
Оценка:, Оценок - 4
Скачать (rar-файл; Размер - 1151)

Обсудить в форуме

Описание

удобно использовать динамически

Текст примера

 var mn=TMenu();

mn.Add(10,"Клиенты");
mn.Add(20,"Счета");
mn.Add(30,"Отчеты");


if(mn.Run)
  if(mn.Result==10)
    msgboxex("Клиенты");
  elif(mn.Result==20)
    msgboxex("Счета");
  elif(mn.Result==30)
    msgboxex("Отчеты");
  end;
end;