怎样制作没有标题栏的窗体？

Question

呵呵，你可以用一个Belev控件代替呀。

Answer 1

对啊，用个 panel 也不错啊

Answer 2

将窗体的borderstyle 属性设为bsnone

Answer 3

覆盖整个客户区的  panel

Answer 4

用API函数 DrawEdge() 画出3D效果。

Answer 5

同意C_Sharp(...)：
设置Style为not ws_caption即可，其实用SetWindowLong()也可以：
SetWindowLong(handle,GWL_STYLE,GetWindowLong(hanlde,GWL_STYLE) and not WS_CAPTION);

Answer 6

{
Copyright ?1999 by Delphi 5 Developer's Guide - Xavier Pacheco and Steve Teixeira
}unit MainFrm;interfaceuses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TMainForm = class(TForm)
    btnClose: TButton;
    procedure btnCloseClick(Sender: TObject);
  private
    { Private declarations }
  protected
    // Capture the WM_NCHITTEST message to enable moving the form. 
    procedure WMNCHitTest(var Message: TWMNCHitTest);  message WM_NCHITTEST;
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;var
  MainForm: TMainForm;implementation{$R *.DFM}procedure TMainForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;
  Message.Result := HTCAPTION;
end;procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := WS_THICKFRAME or WS_POPUP or WS_BORDER;
end;procedure TMainForm.btnCloseClick(Sender: TObject);
begin
  Close;
end;end.