Формы нестандартного вида

Code:

TForm.Style:=bsNone

Code:

setWindowLong (handle,GWL_STYLE,getWindowLong(handle, GWL_STYLE) and not WS_CAPTION);

width:=width+1;

width:=width-1;

Code:

{ Private Declaration }

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;