Синтаксис
procedure AddMessage(ATime: TDateTime; AKind: TM_MessageKind; const AText: string; AUnconfirmed, ASound: Boolean);
Описание
Добавляет новое сообщение и записывает его в архив сообщений. Сообщение будет показано на всех клиентах.
Важно! При работе с сообщениями, нужно всегда стараться использовать штатную систему сообщений и шаблонные сообщения. Если требуется не выдавать сообщения при перезапусках проекта, то нужно в настройках отключить опцию "Показывать сообщения по первому изменению". Добавлять сообщения через скрипты целесообразно только в случаях, когда по каким-либо причинам невозможно использовать штатную систему сообщений.
Параметр |
Описание |
---|---|
ATime |
Отметка времени |
AKind |
Тип сообщения. Принимает значения констант: ▪mkMessage - обычное сообщение (серого цвета). ▪mkWarning - предупреждающее сообщение (желтого цвета). ▪mkAlarm - аварийное сообщение (красного цвета). |
AText |
Текст сообщения |
AUnconfirmed |
Если "True", то сообщение будет добавлено в список неподтвержденных |
ASound |
Если "True", то сообщение будет сопровождаться звуком |
Пример кода
begin
// добавить сообщение с текущей отметкой времени, с типом – авария(красного цвета),
// с добавлением в список неподтвержденных и со звуком.
AddMessage(Now, mkAlarm, 'Высокое давление!', True, True);
end.