1
Ваши вопросы / Re: Границы переменных
« : 17 Апреля 2025, 15:15:54 »
Добрый день!
Необходимо чтобы по превышению аварийных уставок становилось видимой форма ( прямоугольник),
небольшой скрипт "Нарушена граница":
Проблема в том что форма остается видимой на экране, даже при том что значение переменной ушло в допустимые пределы.
upd:
Работает так. И немного поменял % зоны нечувствительности
Необходимо чтобы по превышению аварийных уставок становилось видимой форма ( прямоугольник),
небольшой скрипт "Нарушена граница":
Код: (delphi)
begin
if not IsFirstChange then
Shape5.Visible := True
else if temperatura.GetValueZone = 0 then
begin
Shape5.Visible := False;
AddMessage(Now, mkMessage, 'Температура в норме ', True, False);
end;
end.
Проблема в том что форма остается видимой на экране, даже при том что значение переменной ушло в допустимые пределы.
upd:
Код: (delphi)
begin
if not IsFirstChange then
begin
if temperatura.GetValueZone = 2 then
Shape5.Visible := True
else if temperatura.GetValueZone = 0 then
Shape5.Visible := False;
end;
end.
Работает так. И немного поменял % зоны нечувствительности