unit Unit2;
interface
uses
; Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
; TForm2 = class(TForm)
; private
; ; { Private declarations }
; ; procedure CreateParams(var Params: TCreateParams); Override;
; public
; ; { Public declarations }
; end;
var
; Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.CreateParams(var Params:TCreateParams);
begin
;inherited;
;with Params do
;begin
; Style:=Params.Style xor WS_DLGFRAME;
; WndParent:=0;
;end;
end;
end.