如何令到一个窗口,没有标题栏?

Question

如题

Answer 1

设置窗口属性：
form.borderstyle:=bsnone;

Answer 2

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.

Answer 3

procedure TStartForm.CreatParams(var Params:TCreateParams);
begin
  Inherited CreateParams(Params);
   with Params do
     Style :=(Style or WS_Popu) and (not WS_DlgFrame);
end;procedure TStartForm.WMNChitTEst(var Msg:TWMNChitTest);
begin
  inherited;
  if (msg.Restult=htClient) then
    msg.Result :=htCaption;end;