2006-10-05

隐藏标题栏

一个快速隐藏你的程序标题栏的方法:
procedure TForm1.FormCreate(Sender: TObject) ;
begin
SetWindowLong( Handle,
GWL_STYLE,
GetWindowLong( Handle, GWL_STYLE )
and not WS_CAPTION ) ;
ClientHeight := Height;
end;

原文名称:Hide Title Bar
原文地址:http://delphi.about.com/cs/adptips2000/a/bltip0100_5.htm

没有评论: