ProgressBar1 放到面板的时候 控件有个边框,如何把边框去掉 如题 ProgressBar1 控件 上面和左边有一个阴边, 下边和右边有一个亮边, 如何把这些边去掉呢. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你说的是Panel的吧,设置一下BevelOuter 你可以使用Flat那套控件,那里没有边框 procedure TForm1.OnFormCreate(Sender: TObject);begin SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE, GetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE) and (not WS_EX_STATICEDGE));end; 请教DELPHI XE3下 多线程该如何挂起? EVariantTypeCaseError 这个异常错误谁知道?该怎么改? 想请教一下关于消息的一个问题. 怎样在combobox中实现OnMouseUp事件? 如何。。给自己写的组件加上自己定义的组件图标阿? 本机没有flash.ocx也能正常运行用到了Shockwaveflash控件的flash播放器吗? 请问有谁做过“公司业务管理系统”这样的开发 为什么它说:贴子回复次数大于跟给分次数 有关ADO控件的问题 高手请进,如何在DELPHI中实现一透明GIF图象沿一定的路径运动? delphi权限控制的例子 分析网页上的内容(200分求解)
begin
SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE,
GetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE) and (not WS_EX_STATICEDGE));
end;