1

Я пишу чат на Delphi по схеме клиент <-> сервер <-> клиент. Задача в следующем: нужно заставить приложение мигать, когда оно свернуто и есть новое сообщение, и только в этом случае. Проблема же: приложение не моргает. Ни в том, ни в другом случае. Вот код (Получение нового сообщения и включение таймера моргания (minimized - это глобальная переменная, главная операция с которой в Timer4)

procedure TForm2.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
  if minimized = 0 then
    Timer3.Enabled := False
  else
    Timer3.Enabled := True;
  
  Listbox1.Items.Add(Socket.ReceiveText);
end;

Timer3:

procedure TForm2.Timer3Timer(Sender: TObject);
begin
  if minimized = 0 then
    Timer3.Enabled := False;

  FlashWindow(Handle, True); 
  FlashWindow(Application.Handle, True);
end;

Timer4:

procedure TForm2.Timer4Timer(Sender: TObject);
begin
  if IsIconic(Application.Handle) then
    minimized := 1
  else
    minimized := 0;
end;
2
  • Возможно, вы просто не замечаете однократного мигания. Попробуйте воспользоваться FlashWindowEx. Кроме того, использовать мигание сразу для двух окон - нежелательно. Анализируйте свойство Application.MainFormOnTaskbar и в зависимости от этого вызывайте мигание или Form2.Handle или Application.Handle.
    – kami
    26 мар 2016 в 19:00
  • Дополнение: таймер 4 - излишен. Проверку, осуществляемую в нем элементарно можно осуществить в таймере 3 и обойтись без глобальной переменной.
    – kami
    26 мар 2016 в 19:04

1 ответ 1

3

Для мигания окна в панели задач есть спец. функция - FlashWindowEx

Так же можно воспроизводить звук, мигать иконкой в системном трее, всплывающее окошко с сообщением и т.д..

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.