Скрипты Simple-Scada

Синтаксис

function FindObjectByName(const AName: string): TM_Control;

Описание

Возвращает объект подстраницы с именем AName. Вернёт nil если объект с таким именем не найден. Результат имеет тип TM_Control, который включает в себя только свойства класса TM_Control. Чтобы получить доступ к остальным свойствам объектов нужно явно указывать тип объекта (см. пример ниже).

Пример кода

var
  MyObject: TM_Control;
begin
  MyObject := Subpage1.FindObjectByName('fldATemperature');
  if MyObject <> nil then                      // если объект найден,
    if MyObject is TM_Field then               // проверяем что объект действительно является полем
      TM_Field(MyObject).BorderColor := clRed; // приводим объект к типу "TM_Field", чтобы работать со свойствами поля
end.