• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

delphi隐藏标题栏

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
 
Delphi中隐藏窗体的标题栏,相信大家都会说是一个件十分容易的事情,只需要设置BorderStyle的属性为bsNone就可以了,不过这种设置方法不但去掉了窗体的标题栏,而且也去掉了窗体的3D边框,这样就显得不好看了,那么请大家试试下面的方法吧。
procedure TForm1.FormCreate(Sender: TObject);
begin
setwindowlong(form1.Handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_caption);
height:=clientheight;//隐藏标题栏
end;


2.在标题栏中显示文字标题
要在窗体的标题栏中显示文字信息,可以先获取此窗体的句柄,然后使用画布(Canvas)在此窗体的标题栏中绘制出文字,根据需要可以对文字的字体大小和颜色进行设置。
procedure TForm1.Button1Click(Sender: TObject);
var
dc:hdc;
cvs:tcanvas;
begin
dc:=getwindowdc(handle);//取得窗体的句柄
cvs:=tcanvas.Create;
cvs.Handle:=dc;
cvs.Font.Size:=11;//设置字体大小
cvs.Brush.Color:=rgb(222,222,9);//背景颜色
cvs.TextOut(100,8,'标题栏文字');//绘制文字
releasedc(handle,dc);//释放句柄
end;


3.在任务栏中隐藏窗体的图标
在Windows中运行程序时,往往此程序的图标都会出现在任务栏中,但也有一些特殊的程序禁止了这种做法,如一些监控程序等,其实要实现这种效果也有好多种方法,下面是其中的一种。
procedure TForm1.FormCreate(Sender: TObject);
begin
showwindow(application.handle,sw_hide); //隐藏图标
setwindowlong(application.Handle,gwl_exstyle,
getwindowlong(application.Handle,gwl_exstyle) or ws_ex_toolwindow and not ws_ex_appwindow);
//设定窗体在状态栏处不可见状态
end;

1.隐藏窗体的标题栏
Delphi中隐藏窗体的标题栏,相信大家都会说是一个件十分容易的事情,只需要设置BorderStyle的属性为bsNone就可以了,不过这种设置方法不但去掉了窗体的标题栏,而且也去掉了窗体的3D边框,这样就显得不好看了,那么请大家试试下面的方法吧。
procedure TForm1.FormCreate(Sender: TObject);
begin
setwindowlong(form1.Handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_caption);
height:=clientheight;//隐藏标题栏
end;


2.在标题栏中显示文字标题
要在窗体的标题栏中显示文字信息,可以先获取此窗体的句柄,然后使用画布(Canvas)在此窗体的标题栏中绘制出文字,根据需要可以对文字的字体大小和颜色进行设置。
procedure TForm1.Button1Click(Sender: TObject);
var
dc:hdc;
cvs:tcanvas;
begin
dc:=getwindowdc(handle);//取得窗体的句柄
cvs:=tcanvas.Create;
cvs.Handle:=dc;
cvs.Font.Size:=11;//设置字体大小
cvs.Brush.Color:=rgb(222,222,9);//背景颜色
cvs.TextOut(100,8,'标题栏文字');//绘制文字
releasedc(handle,dc);//释放句柄
end;


3.在任务栏中隐藏窗体的图标
在Windows中运行程序时,往往此程序的图标都会出现在任务栏中,但也有一些特殊的程序禁止了这种做法,如一些监控程序等,其实要实现这种效果也有好多种方法,下面是其中的一种。
procedure TForm1.FormCreate(Sender: TObject);
begin
showwindow(application.handle,sw_hide); //隐藏图标
setwindowlong(application.Handle,gwl_exstyle,
getwindowlong(application.Handle,gwl_exstyle) or ws_ex_toolwindow and not ws_ex_appwindow);
//设定窗体在状态栏处不可见状态
end;


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap