Главная

RSS Последние сообщения форума:

  • Расширения и плагины • Главное меню 21.05.2019
    Это для пользователя с правами "Администратора". Легко решается предусловием (IIF(ROLE=...)) как в выражении так и в "действии".Статистика: Добавлено Владимир — 21 май 2019, 19:42
  • Расширения и плагины • Главное меню 21.05.2019
    Опаньки! Обычному юзеру открывает Файл|Пользователи Мож это и хорошо, но как-то не комильфо...Статистика: Добавлено Runenkov — 21 май 2019, 14:27
  • Расширения и плагины • Главное меню 19.05.2019
    Состав модуля:Функция: CLICK_MENU - Функция ищет пункт меню главного окна по указанному пути и выполняет клик.Действие: "Кликнуть пункт меню".Выполняет аналогичное CLICK_MENU действие.Пример пути для функции/действия: Файл|Подключиться, Сервис|Экспорт данных Демо онлайн Расширение: Клик в главном меню.epasПоддержка проектаСтатистика: Добавлено Владимир — 19 май 2019, 20:17
  • Общий раздел • Кнопка прямо в таблице 11.05.2019
    Огромнейшее спасибо! Это то что нужно. И вариант без кнопки даже лучше и удобнее.Статистика: Добавлено Samlam — 11 май 2019, 23:37
  • Общий раздел • Кнопка прямо в таблице 10.05.2019
    Без кнопки - да, полегче будет...Чуть добавил по-мелочи:CODE: var S,V,N:string;procedure GetTitleCaption(Column: TColumn);begin S:= Column.Title.Caption; if Column.Field.Value=Null then exit else V := Column.Field.Value; If Self.Fields['Телефон'] =Null then exit else N := Self.Fields['Телефон']; if V='ПОЗВОНИТЬ' then debug ('Call '+ N)end;procedure ControlFocus(Sender: TObject);var C:TWinControl;beginif Trim(S)='' then exit; C:=TWinControl(Self.FindComponentByFieldName(S)); if C.ParentSelf then if C.Parent is TdxTabSheet then TdxTabSheet(C.Parent).PageControl.ActivePageIndex:= TdxTabSheet(C.Parent).TabIndex; […]