西安东泰易盛塑胶地板:无标题窗口

来源：百度文库 编辑：九乡新闻网 时间：2024/04/19 13:40:26
去掉窗口标题栏：
procedure   TForm1.FormCreate(Sender:   TObject);
begin
    SetWindowLong(Form1.Handle,
                                GWL_STYLE,
                                GetWindowLong(Handle,GWL_STYLE)   and   not   WS_CAPTION);
    Height   :=   ClientHeight;
end;
///////////////////////////////////////////////////////////
procedure   TForm1.CreateParams(var   Params:   TCreateParams);
begin
    inherited   createparams(params);
    with   params   do
    begin
        style:=style   and   (not   ws_caption);
        style:=style   or   ws_popup   or   ws_thickframe   or   ws_clipchildren;
    end;
end  

另外，你可以把Form的BorderStyle改成bsNone，也就没标题栏了。
无标题窗口 窗口。。。 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题 无标题