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
没有评论:
发表评论