Последняя версия DataExpress 3 beta от 1 сентября 2019 года.
Изображение Скачать | Изображение Что нового?
См. также: Энциклопедия DX | Форум на develop-soft | Песочница
ИзображениеИзображениеИзображение

Как определить представление формы?

Все о том как сделать что-то с помощью скриптов.
Аватара пользователя
Develop-Soft
Сообщения: 709
Зарегистрирован: Вт мар 05, 2019 6:09 pm
Благодарил (а): 35 раз
Поблагодарили: 162 раза
Контактная информация:

Re: Как определить представление формы?

Сообщение Develop-Soft » Ср июн 12, 2019 2:27 pm

Код: Выделить всё

function GetViewType(FormName:string):variant;
var SL:TStringList;
    i:integer;
begin
  SL:=TStringList.Create;
  GetForms(SL);
  SL.Sorted:=true;
  if SL.Find(FormName,i) then
  result := TdxForm(SL.Objects[i]).ViewType else
  result:=-1; // Форма не найдена.
  SL.Free;
end; 

Vofka18
Интересующийся
Сообщения: 247
Зарегистрирован: Вс мар 04, 2018 4:54 pm
Благодарил (а): 11 раз
Поблагодарили: 4 раза

Re: Как определить представление формы?

Сообщение Vofka18 » Ср июн 12, 2019 2:53 pm

Спасибо! Но я так понимаю условие в цикл надо засунуть? :) с этим я думаю спаравлюсь ;)

Vofka18
Интересующийся
Сообщения: 247
Зарегистрирован: Вс мар 04, 2018 4:54 pm
Благодарил (а): 11 раз
Поблагодарили: 4 раза

Re: Как определить представление формы?

Сообщение Vofka18 » Ср июн 12, 2019 3:00 pm

Прошу прощения, не справился :D . Ошибку понял, цикл не нужен.... ;)