去掉窗口的标题栏

[yuanrong]

如题，请问如何用API实现？

[yuanrong]

我知道，但是我要用API。

[大地精灵]

你要API来干吗，zhoutian618(周天) 说的就可以了啊

[zhoutian618]

设置属性就可以了啊。
BorderStyle为bsNone就行了。

[dext]

SetWindowLong

[devilwind]

BorderStyle为bsNone就不能再改变窗口大小了,可以进行重写
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure CreateParams(var Params:TCreateParams);override;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style :=WS_THICKFRAME or WS_POPUP OR WS_BORDER;
end;

end.