public
; ; { Public declarations }
; ; procedure CreateParams(var Params: TCreateParams); override;
procedure TForm1.Createparams(var Params: TCreateParams);
begin
; inherited CreateParams(Params);
; with Params do
; ; Style := (Style or WS_POPUP) and (not WS_DLGFRAME);
end;