Создаю программу, нечто вроде уведомления о том, что меня вызывают в другой кабинет. Чтобы не мешалась - добавил возможность сворачивания в трей.
Каждые 5 секунд программа отправляет запрос на сервер с проверкой статуса (вызвали/не вызвали). При развернутом состоянии - программа выходит на передний план и моргает сообщением, что меня вызывают.
А когда находится в трее, должно выбрасывать BalloonHint с сообщением о том, что меня вызывают, но этого не происходит.
Код:
Код:
JSON := TJsonObject.Parse(Response) as TJsonObject;
if Assigned(JSON) then
begin
try
//ShowMessage(JSON.ToJSON(False));
if JSON['amount'].IntValue > 0 then
begin
GLOBAL_DOCTORS := JSON['data'].ArrayValue;
Doctor := GLOBAL_DOCTORS.Items[DOCTOR_INDEX].ObjectValue;
if Doctor['nurse_call'].IntValue = 1 then
begin
if not isTray then {isTray - переменная меняется в зависимости, свернуто ли приложение в трей или нет}
begin
SetForegroundWindow(Application.Handle);
lbl_notify.Caption := lbl_notify_Call;
tmr_blink.Enabled := True;
frm.WindowState:=wsNormal;
frm.FormStyle := fsStayOnTop;
end else
begin
ti_main.BalloonTitle := 'ВАС ВЫЗЫВАЮТ В ПЕРЕВЯЗОЧНЫЙ!';
ti_main.ShowBalloonHint;
end;
end;
// ShowMessage(Doctor.ToJSON(False));
end else
begin
Logger(' Список доступных врачей пуст.');
lbl_chooseDoctor.Caption := 'НЕТ ВРАЧЕЙ';
end;
finally
JSON.Free;
end;
end else
begin
raise Exception.Create('Файл не содержит JSON-данные');
end;
В чем может быть ошибка? Или приложение, когда находится в трее, работает как-то иначе?
UPD. Странно... В win10 нет balloonhint? Я так понимаю, его надо заменить пользовательским?
Вот код сворачивания в трей:
Код:
procedure Tfrm.MinimizeForm;
begin
ti_main.Visible := True;
ti_main.Hint := ('ОКДО - Уведомления' + #1310 + cb_chooseDoctor.Items[DOCTOR_INDEX]);
Hide();
WindowState := wsMinimized;
isTray := True;
ti_main.BalloonTitle := 'ВАС ВЫЗЫВАЮТ В ПЕРЕВЯЗОЧНЫЙ!';
ti_main.ShowBalloonHint;
end;
Хинт не появляется...