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

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

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

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
Опытный
Сообщения: 251
Зарегистрирован: Вс мар 04, 2018 4:54 pm
Благодарил (а): 12 раз
Поблагодарили: 4 раза

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

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

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

Vofka18
Опытный
Сообщения: 251
Зарегистрирован: Вс мар 04, 2018 4:54 pm
Благодарил (а): 12 раз
Поблагодарили: 4 раза

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

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

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