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

Объекты Pascal, классы Object Pascal, интерфейсы, наследование, инкапсуляция и т.д
Ответить
Vadik(R)
Сообщения:1
Зарегистрирован:14 окт 2009, 15:44

14 окт 2009, 15:48

Нашел код:
Заставить мерцать заголовок модального окна при щелчке на
родительской форме {
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.
Ответить