Я пишу чат на 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;
Application.MainFormOnTaskbar
и в зависимости от этого вызывайте мигание или Form2.Handle или Application.Handle.