Использую процедуру для отображения уведомления:
procedure TForm1.TrayNotification(t_title: string; t_message: string; m_type: string);
begin
Form1.TrayIcon1.BalloonTitle := t_title;
Form1.TrayIcon1.BalloonHint := t_message;
Form1.TrayIcon1.BalloonTimeout := 8;
if (m_type = 'info') then
Form1.TrayIcon1.BalloonFlags := bfInfo
else if (m_type = 'warning') then
Form1.TrayIcon1.BalloonFlags := bfWarning
else if (m_type = 'error') then
Form1.TrayIcon1.BalloonFlags := bfError
else
Form1.TrayIcon1.BalloonFlags := bfNone;
Form1.TrayIcon1.ShowBalloonHint;
end;
У меня в программе работают 2 таймера и часто срабатывают одновременно, они отображают оповещения используя эту процедуру, и перемешиваются заголовок или содержимое сообщения + может появится лишнее оповещение из-за того, что процедура выше одновременно вызывается несколько раз подряд, а компонент 1 и записи свойств происходят одновременно разными значениями. Подскажите, как решить задачу, чтобы выводились все сообщения разные даже подряд?