本文共 931 字,大约阅读时间需要 3 分钟。
1.隐藏窗体的标题栏
在Delphi中隐藏窗体的标题栏,相信大家都会说是一个件十分容易的事情,只需要设置BorderStyle的属性为bsNone就可以了,不过这种设置方法不但去掉了窗体的标题栏,而且也去掉了窗体的3D边框,这样就显得不好看了,那么请大家试试下面的方法吧。
procedure TForm1.FormCreate(Sender: TObject);beginsetwindowlong(form1.Handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_caption);height:=clientheight;//隐藏标题栏end;
2.在标题栏中显示文字标题
要在窗体的标题栏中显示文字信息,可以先获取此窗体的句柄,然后使用画布(Canvas)在此窗体的标题栏中绘制出文字,根据需要可以对文字的字体大小和颜色进行设置。
procedure TForm1.Button2Click(Sender: TObject);vardc:hdc;cvs:tcanvas;begindc:=getwindowdc(handle);//取得窗体的句柄cvs:=tcanvas.Create;cvs.Handle:=dc;cvs.Font.Size:=11;//设置字体大小cvs.Brush.Color:=rgb(222,222,9);//背景颜色cvs.TextOut(100,1.隐藏窗体的标题栏在Delphi中隐藏窗体的标题栏,相信大家都会说是一个件十分容易的事情,只需要设置BorderStyle的属性为bsNone就可以了,不过这种设置方法不但去掉了窗体的标题栏,而且也去掉了窗体的3D边框,这样就显得不好看了,那么请大家试试下面的方法吧。procedure TForm1.FormCreate(Sender: TObject);beginsetwindowlong(form1.Handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_caption);height:=clientheight;//隐藏标题栏end;
转载地址:http://qmvwn.baihongyu.com/