скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Заставить мерцать заголовок модального окна при щелчке на родительской форме



Оформил: DeeCo

{ 
  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;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook