Как иммитировать появление формы как нового приложения?

Previous  Top  Next

    
 

 

 

 

How i can create a form and this form stay in another icon in task bar ? (Looks like a new aplication).

 

In private clause:

Code:

type

TForm1 = class(TForm)

private

   { Private declarations }

   procedure CreateParams(var Params: TCreateParams); override;

And, in the implementation:

Code:

procedure TForm1.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams(Params);

with params do

   ExStyle := ExStyle or WS_EX_APPWINDOW;

end;

 

 

©Drkb::00417

Взято с Delphi Knowledge Base: http://www.baltsoft.com/