[Delphi] DLL의 폼을 Splash 윈도우로 사용하기 (CreateParams)

DLL에 들어 있는 폼을 땡겨와서,
현재 실행되고 있는 메인폼의 ChildWindow로 붙이되 작업표시줄에는 표시되지 않게 하는 방법.
CreateParams에서 스타일 조정을 잘 해주면 됨.

DLL의 폼의 BorderStyle은 bsSingle로 가정함.

unit Splash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

type
  TfrmSplash=class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

implementation

{$R *.dfm}

{ TfrmSplash }

procedure TfrmSplash.CreateParams(var Params: TCreateParams);
begin
  inherited;

  BorderStyle:=bsNone;
  Params.Style:=Params.Style xor WS_CAPTION xor WS_SYSMENU xor WS_MINIMIZEBOX xor WS_MAXIMIZEBOX xor WS_THICKFRAME or WS_POPUP;
  Prarams.ExStyle:=Params.ExStyle or WS_EX_TOOLWINDOW;
end;

end.