Мерцание модального окна при щелчке на родительское

[Vadik(R)]

Нашел код:

Заставить мерцать заголовок модального окна при щелчке на
родительской форме {
Under windows 2000/XP,if user open a modal dialog,
when the user click the modal form's parent form,
windows can flash the modal form title bar,how to do it by delphi?
you may create base form,let you modal form inherite from the base form,
and add under codes to the base form source:
}

type 
TFrmBase = class(TForm) 
protected 
procedure CreateParams(var Para: TCreateParams); override; 
{....} 
end; 

{....} 

implementation 

procedure TFrmBase.CreateParams(var Para: TCreateParams); 
begin 
inherited; 
Para.WndParent := GetActiveWindow; 
end;

---
Я как не пытался это написать - у меня не получается добиться желаемого эффекта. Можете дать готовый проект, где все будет работать? Желательно, модальное окно пусть будет AboutBox. Код на Delphi 7.

[Vadik(R)]

Никто не может помочь? *cry*

[FaTaL]

Так оно по умолчанию мерцает, если щёлкнуть на родительское.
Вот примерчик Merc.zip

[Vadik(R)]

Нет, у меня не мерцает. И еще делфи поругался на эту строчку:
Application.MainFormOnTaskbar := True;
У меня делфи 7, как под него сделать такое?

[Alex Cones]

Закомментировать эту строку.

[FaTaL]

ТОгда просто убери эту строчку с проекта. И вообще давно пора переходит уж если не на Delphi 2010, то хотя бы на 2009. Все таки программисты должны идти в ногу со временем

[Vadik(R)]

Да толку то что я её закоментировал?
Все компилируется, но окно не мерцает. Просто при клике на родительском окне издается звук, но мерцания модального окна нет. Я ж не с проста первое сообщение написал.

---
Добавлено. О, мне теперь эта проблема нравится больше. В том плане, что в 2009/2010 все уже реализовано, а делфи 7 - нет. Неужели такое никак не сделать именно под 7 версию?
---
На делфи 7 сижу, точнее сидел, так как мне он нужен был только для решения олимпиадных задач. поэтому не было потребности в том чтобы поставиьт новую программу.

[FaTaL]

Может у тебя просто винда какая то кривая типа Зверь или ещё какая сборка?
На оригинальной сборке винды хоть под Дельфина седьмого всё нормально мерцает.

[Vadik(R)]

Ух, а вот это уже интересно ) В том плане, что да у меня винда экстим едишн (ну типа зверя). Просто я решил что должно мигать с того, что если открыть блокнот, там щелкнуть пункт "О программе", то при клике в сам блокнот окошко AboutBox мигает. А вот в обычном приложении на делфи - не хочет

[TwiX]

Вот - так можно моргнуть любым окошком =)
FlashWindow(h, true); где h - его хэндл