Скрипты Simple-Scada

Синтаксис

procedure ShowMessageClient(AClientName, ATitle, AContent: string; AWndColor, AFontColor: Cardinal);

Описание

Показывает на заданном клиенте окно с заголовком ATitle, текстом AContent, цветом окна AColor и цветом шрифта текста AFontColor. Можно не указывать значения AWndColor и AFontColor, тогда окно будет показано со стандартным серым цветом и белым цветом шрифта. Для указания цвета можно использовать константы цветов. Как узнать имя клиента, см. по ссылке.

Пример кода

begin
  { Показать на клиенте "Client_Name" окно серебристого цвета с заголовком "Предупреждение!" 
    и текстом "Высокая температура" зеленого цвета }
  ShowMessageClient('Client_Name', 'Предупреждение!', 'Высокая температура', clSilver, clGreen);  
  
  { Показать на клиенте, который вызвал скрипт окно синего цвета с заголовком "Внимание!" 
    и текстом "Остановка двигателя" красного цвета }
  ShowMessageClient(GetClientName, 'Внимание!', 'Остановка двигателя', clBlue, clRed);  
  
  { Показать на клиенте, который вызвал скрипт стандартное окно с заголовком "Внимание!" 
    и текстом "Остановка двигателя" }
  ShowMessageClient(GetClientName, 'Внимание!', 'Остановка двигателя'); 
end.