如何设MDI子窗体为无标题栏的样式？

Question

rt
试过后再回答！

Answer 1

在Form的Create事件中加入
var
   OldStyle : DWORD;
begin
    OldStyle := GetWindowLong(Handle,GWL_STYLE);
    SetWindowLong(Handle,GWL_STYLE, OldStyle and not WS_CAPTION);
    SetBounds(Left,Top,ClientWidth,ClientHeight);
end;

Answer 2

或者
procedure CreateParams(var Params: TCreateParams); override; Procedure Tform1.CreateParams( var Params : tCreateParams );
Begin
  Inherited CreateParams( Params );
  Params.Style := Params.Style and (not WS_CAPTION)
End;//Params.Style := Params.Style and not WS_Caption 
//这样也可以