Всплывающие сообщения windows

[Fakov]

Добрый день. Подскажите, как можно реализовать такое - нужны всплывающие сообщения в правом нижнем углу экрана, над треем, где часы, требуется имитировать уведомления от соцсети - как будто пришло новое сообщение, или просто какая-то информация.

Собственно вопрос - через что можно это реализовать в делфи? Нужна максимальная кастомизация - от цвета фона до возможности подставить изображение и задать заголовок и какое-то описание.

Спасибо

[Arigato]

Сообщение от Fakov

требуется имитировать уведомления от соцсети

Попахивает чем-то нехорошим...

[digitalis]

"Ваш капустер заражен. Если не хотите последствий, переведите $XXX в урну у входа в сквер. "

[yoshimidzo]

Сообщение от Fakov

Добрый день. Подскажите, как можно реализовать такое - нужны всплывающие сообщения в правом нижнем углу экрана, над треем, где часы, требуется имитировать уведомления от соцсети - как будто пришло новое сообщение, или просто какая-то информация.

Собственно вопрос - через что можно это реализовать в делфи? Нужна максимальная кастомизация - от цвета фона до возможности подставить изображение и задать заголовок и какое-то описание.

Спасибо

для win 8 и выше

procedure TNotificationsForm.btnShowClick(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Name := 'VK_center1';
    MyNotification.Title := 'Сообщение о нарушении';
    MyNotification.AlertBody := 'Ваш капустер заражен. Если не хотите последствий, переведите $XXX в урну у входа в сквер.';

    NotificationCenter1.PresentNotification(MyNotification);
  finally
    MyNotification.Free;
  end;
end;

если нажали на уведомление:

procedure TNotificationsForm.NotificationCenter1ReceiveLocalNotification(Sender: TObject;
  ANotification: TNotification);
begin
  mmLog.Lines.Add('Notification received: ' + ANotification.Name);
end;

end.

пример есть в тут

[newerow1989]

Возможно - http://newerow1989.narod.ru/publ/ope...adach/3-1-0-44