procedure CreateParams(var Params: TCreateParams); override; |
Затем создайте сам код метода CreateParams(), выглядящий так:
procedure TForm1.Createparams(var Params: TCreateParams);begininherited CreateParams(Params);with Params doStyle := (Style or WS_POPUP) and (not WS_DLGFRAME);end; |
Надо надеяться, что вы обеспечите некоторый UI-механизм для перемещения и закрытия окна. [000099]