Как иммитировать появление формы как нового приложения? |
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/