Здравствуйте. Можете посоветовать, чё с этим делать?
При старте проекта начинаю пинговать ПЛК.
...
StartPing('хххххххххх',5000,Subpage1);
StartPing('хххххххххх',10000,Subpage2);
StartPing('хххххххххх',5000,Subpage3);
...
begin
if PingData.Sender = nil then Exit;
if PingData.Sender is TM_SubPage then
with PingData.Sender as TM_SubPage do
begin
if PingData.Result then
Color:=clNone //есть пинг
else
begin
Color:=clRed; //нет пинга
crash_(GetSubpageByName(Name));
end;
end
end.