说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

状态条插入可视控件-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
状态条插入可视控件-Delphi资料

首先

在FROM中放置一个状态条控件Status。调节Status.Panels,在其中插入3个状态条嵌板。把第二个嵌板的参数Style设置成psOwnerDraw。这一点很重要,如果没有这样做,将永远无法显示文字以外的东西。然后在状态条的OnDrawPanel事件中插入一行StatusDrawRect:=rect;以记录参数Style设置成psOwnerDraw的嵌板的坐标。

第二步,在FROM的Private中申明一个TProgressBar类型的变量Progress。然后在一个菜单的消息响应过程中调用Create方法把它建立起来,再设定状态条为该进程条的父窗口,进而设定进程条的一些必要参数。例如:最大值、最小值、原点坐标、高度和宽度等。

最后编译一下该程序,你就会发现在状态条中被插入了一个运动着的进程条。

类似地,你还可以在状态条中插入其他可视控件,如:按键、位图和动画控件等等。

以下是范例程序:

type

TForm1 = class(TForm)//定义一个窗口类

Status: TStatusBar;

MainMenu1: TMainMenu;

file1: TMenuItem;

insertprocressbar1: TMenuItem;

N1: TMenuItem;

exit1: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure StatusDrawPanel(StatusBar: TStatusBar; Panel:

TStatusPanel;const Rect: TRect);

procedure FormDestroy(Sender: TObject);

procedure exit1Click(Sender: TObject);

procedure insertprocressbar1Click(Sender: TObject);

private

colorindex : integer; BookOpen:Boolean;

ssbmp:Tbitmap; progress:TProgressbar;

StatusDrawRect:TRect; //记录要插入状态条特技的坐标范围

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

procedure TForm1.StatusDrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel; const Rect: TRect);

begin

StatusDrawRect:=rect; //记录要实现状态条特技的坐标范围

end;

procedure TForm1.exit1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.insertprocressbar1Click(Sender: TObject);

var i

count:integer;

staPanleWidth:integer;

begin

progress:=TProgressbar.create(form1);

count:=3000; //进程条的最大值

staPanleWidth:=status.Panels.Items[2].width;

//由于进程条的很宽,所以需要改变状态条嵌板的宽度,这里先保存它的宽度。

status.Panels.Items[2].width:=150; // 改变宽度

status.repaint;

with progress do

begin

top:=StatusDrawRect.top;

left:=StatusDrawRect.left;

width:=StatusDrawRect.right-StatusDrawRect.left;

height:=StatusDrawRect.bottom-StatusDrawRect.top;

//设定进程条的宽度和高度

visible:=true;

try

Parent := status; //该进程条的拥有者为状态条status

Min := 0; Max := Count; //进程条的最大和最小值

Step := 1; //进程条的步长

for i := 1 to Count do

Stepit; // 累加进程条

ShowMessage('现在,进程条将要从内存中被释放');

finally

Free; //释放进程条

end; //try

end; //with

status.Panels.Items[2].width:=staPanleWidth; //恢复状态条嵌板的宽度

end; //begin

end.

让针对Webkit优化的网站兼容WP8 IE10 CMDN Club 24期:互联网产品的演进之路——从QQ谈互联网14年进化史 360安全浏览器发布“照妖镜”和“网站名片”功能 Windows Server 2012实用教程:添加Hyper-V管理器 为何Google弃置GCE和GAE选择AWS? 2012移动应用盘点:乱象丛生 最佳与奇葩共舞 从1976至2013大事记,看Android未来命运 c#经典入门视频001基础知识-苏坤老师主讲 c#经典入门视频002学习两句话-苏坤老师主讲 c#经典入门视频003基础知识-苏坤老师主讲 回顾HTML5这一年:在痛并快乐中前进 学Apple,微软宣布2013上半年零售店建设计划 真羡慕他们:谷歌宣布Gmail电话明年继续免费 c#经典入门视频004变量-苏坤老师主讲 c#经典入门视频005变量的使用和命名规则-苏坤老师主讲 c#经典入门视频006输出变量的值(及赋值符、连接符、占位符)-苏坤老师主讲 c#经典入门视频007变量交换_输入-苏坤老师主讲 回首JavaScript这一年:笑里藏刀 百媚丛生 平板优先:Supercell游戏公司日收入100万美元 Mootools实现具有排版功能的页面拖拽 2012:云计算的春天 直击Strata+Hadoop World:百万雄师过大江 能携带的网络 Anyfi 150万建网络虚拟热点 又将颠覆产业?传苹果正开发蓝牙智能手表 JavaScript社区开发者调查结果 欢乐淘、求PS大神获腾讯开放平台应用创新大赛年度金奖 2012是响应式设计之年 12月28日:1903年计算机之父冯·诺依曼出生 Android木马病毒:伪装成Google Play图标进行DDoS攻击 IE10 CSS Hack 程序员技术分享:训练机器学习 SVM算法解析 需要server2003企业中文版(激活的)地址! sql查询问题 update 的问题 急!IIS连接不上 装上JDataConnection Server之后,在数据源ODBC中的驱动程序列表中没有JDBC驱动算不算问题,高分求解! 短消息服务提供商(SP)程序问题 activeX控件问题,急盼高手帮助! 请教八数码难题的解法! 如果一个dll,在它里面有一个窗口,而有一个函数是这个窗体类的一个函数,那么如果在使用这个dll文件中的这个函数。 谁能给一个测试是否是EMAIL的函数?急! 如何实现关键字查询? 只能让家里的电视出现更多的台,比如解码器什么的! 急问:那位了解 sys/wait.h ,它的功能是什么? 求MICROSOFT VISUAL STUDIO.NET 2002 中文企业版,2003不要,谢谢~ saucer(思归)在吗?有问题请教! 哪里有C++ Builder 下载的。 TTrayIcon中的图标颜色只能显示16色的吗? HELP!!!XML怎么写成物理文件到本地? 这是为什么呀?电脑高手请进。。。 也说技术人员创业 高分:虚拟主机问题 快被OVERLAY搞死了,急救 中了“盗贼”木马,如何删除? 请网络高手来看看这个问题,给我点提示和建议?急急急 汉字在exe 文件的十六进制 能否 转换得来? 气死人了,在jbuilder8中被logic:iterate搞死了,累,急救 pb数据窗UPDATE的怪问题!很怪!!! 配置问题求救! 请问Access中可以用select case ........when else end的函数吗? 一定要把AutoPostBack设定成true才能响应事件? 但是那样动态生成的控件又都没了…… 急 哪位知道哪有OpenGL高级编程的培训 短消息服务提供商(SP)程序问题 那里能弄到解码器~~~~~~~~~~~~~~~ 马上就要毕业了,请先辈们指点迷津!!! 安装 Duwamish 7.0 和 PetShop 3.0 时的问题? 一个二维数组的问题,请指教 tdbgrid 锁定行,使改行不可编辑 能否实现这样的功能:如果是A登陆,则可以看见一个按钮a;如果不是A登陆,则按钮a不可见。 本人查看过往的薪水调查的贴子,看到大多数人都在贫困线(2K)下,这JSP技术已经没什么钱途了.转向吧! rm格式的文件不能正常播放用什么软件修复呢? 请问用java编好的软件,如何打包发布呀?急~~~ 怎样在对话框里设置背景图片? 帮帮我!我弄了好久拉! 请解决了clientdataset的filter中使用like过滤中文单汉字的高手进来解决一下 如何禁止菜单栏“窗口”项中的窗口列表 如何用xml显示,从数据库图像字段中导出来的图片信息,显示为图片!代码如下... 紧急求助:CSocket的问题 请教:程序先往一word模板中写入数据,word显示出来后,不允许修改,怎么能实现?(在线等待) 可不可以告诉我操作系统里的LPVOID当我在C#中调用API时应转化为哪个类型? boot.ini文件找不到了 再请大家告诉以下连接数据库的问题,为什么总是连不上?!!!! 微积分求极限 (1^x+2^x+3^x)^(1/x) x趋向于无穷时的极限为什么是3? 求一篇辩证思维法在地质工程中的应用的论文RT 1 The bell was too old,so it was not().Aworthy of being repaired Bworth to be repaired2 Let's our presents to each other for a while,Della.Aput away Bput off3 ——We ()to the station,it was so near.——Yes,a taxi wasn't at all necessary.A ,谁能给我一篇关于 英语思维模式在英语阅读教学中的应用 的论文,谁能给我一篇关于 英语思维模式在英语阅读教学中的应用 的论文,我将给他我现在的全部积分,不给的就是四脚爬的 “鸡声茅店月,人迹板桥霜”全是由什么类别的词组成? 0-9数字填进方框里,使5个等式成立,每个数字只能用一次.( ) - ( ) = ( ) - ( ) = ( ) - ( ) = ( ) - ( ) = ( ) - ( ) 什么动物是庄稼的好朋友?(三个以上) AB两只蚂蚁在400米长的环形跑道的同一点同时背向而行,A蚂蚁每分钟爬0.1米,每爬50分钟休息10分钟;B蚂蚁每分钟爬0.4米,每爬60分钟休息10分钟.A、B两只蚂蚁经过多长时间相遇? 3Dmax粒子系统 怎么样给粒子贴不一样的贴图?比如N个粒子我要贴不一样的颜色. 1.使警察吃惊的是,这起事故没有损坏任何车辆 2.这只箱子很重,因为里面装满了书 求翻译英文 蚂蚁阿罗意外地发现了一个书房.在书房巡视了一圈后,阿罗做出了一个重大的决定:我就在书房里定居了,而且我每天要住在一本书里……童话续写,最后要总结出一个道理,不用很详细,只要大 襁褓裹紧会影响婴儿髋关节发育保加利亚查获11公斤海洛因伊拉克医生带枪上班的无奈中国海军舰队昨凌晨贴日本国境航行 没包含多种电源线接口的移动充电宝上市(中国进出口银行巴黎分行正式挂牌营业“中国风”吹进全球南南发展博览会26名获释巴勒斯坦人返回故土美众院军事委员会主席称支持日本提升军钓鱼岛问题成安倍实现外交和安保战略工朝鲜驻日机构\"朝总联\"因绑架日本长江委防办:不存在牺牲小城市保大城市中国铁建两日成交近50亿 超此前一个北京:城市副中心规划将避免“直连”中豪赌*欣泰“失败” 创势翔创始人“清北京中国大饭店为北马官方唯一指定酒店多地抵制肯德基 “爱国”还是炒作?南方大雨影响长江区域旅游业豪赌*欣泰“兵败” 创势翔创始人“清百度大股东反对私有化爱奇艺途家房东宋建祥 不只是“父爱如山”北京瑰丽酒店 经典鲁菜考神穿越奋斗之幸福生活火焰传奇我是贴身大校草带着空间玩末世超次元魔法使淤青绿茵传奇太乙佛仙异界游折桂令幸福还有多远中华性文化博物馆旅游上海马戏城旅游西秀海滩旅游维多利亚旅游李小龙乐园旅游澳门艺术博物馆旅游世博轴旅游三星堆旅游阳明祠旅游拱宸桥旅游相城生态园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘