...flash the modal window title when user clicks the parent form?

Author: Kingron
Homepage: http://kingron.myetang.com

Category: Forms

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

 

printed from
www.swissdelphicenter.ch
developers knowledge base