Как иммитировать появление формы как нового приложения?
Falk0ner, вс, 06/07/2008 - 15:34.
And, in the implementation:
How i can create a form and this form stay in another icon in task bar ? (Looks like a new aplication).
In private clause:
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure CreateParams(var Params: TCreateParams); override;
TForm1 = class(TForm)
private
{ Private declarations }
procedure CreateParams(var Params: TCreateParams); override;
And, in the implementation:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with params do
ExStyle := ExStyle or WS_EX_APPWINDOW;
end;
begin
inherited CreateParams(Params);
with params do
ExStyle := ExStyle or WS_EX_APPWINDOW;
end;
Взято с Delphi Knowledge Base: http://www.baltsoft.com/
Отправить комментарий