TMenu вместо menu...

Скачать (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;