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

状态条插入可视控件-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.

敏捷实战:如何让团队迭代交付周期缩短一半 移动设备管理初创公司AirWatch:首轮融资2亿美元 New Relic:不等应用崩溃,实时监控你的App! Zynga力挽狂澜三步棋:移动+授权+自有网络 巧用MapReduce+HDFS,海量数据去重的五大策略 革自己的命?为带来一致体验 IE11伪装FireFox 最古老的Linux发行版Slackware以及Arch Linux齐弃MySQL JEECG v2.3 发布,基于代码生成器的智能开发框架 Mozilla将设应用工场 Firefox OS瞄准欧洲南美 Summly创始人:12岁开始编程 17岁公司卖了3000万美元 因SaaS与NoSQL,Oracle雄风不在? 那些年云计算领域的大牛们 回顾:那些被平台方封杀的第三方应用 [热帖推荐] 中国的程序员,真的“短命”吗? 聚焦HTML5移动开发 第六届英特尔杯大学生软件开发大赛开幕 虚拟化技术新星Pluribus Networks获中国VC青睐 可穿戴开发!Pebble Watchface SDK 4月发布 我想做个程序员:一位编程小白的App开发故事 Go 1.1发布,支持向后兼容 Polycode:免费、开源的跨平台(游戏和APP)开发工具 为何大多数云计算公司注定要失败 究竟是什么让Redshift比Hive快10倍?! [评论]将Linux拒之门外 微软被开源社区指控垄断 精细化运营:友盟统计分析SDK 3.0版本发布 “锤子OS”功能猜测与罗式对比营销 神奇!1KB JavaScript代码编写的3D蜜蜂 顶尖技术人员“兜售”的顶尖编程语言、扩展工具等 移动阅读商业化:Flipboard支持用户DIY杂志 全球移动App:Top 52发行商排行榜 知新网CTO:从程序员的视角,实践精益创业 罗永浩锤子ROM:小团队的75项微创新 关于stringgrid的翻页问题 寻找电脑方面的朋友 大家好,帮忙做做这题 大家如何保存自己地提问?? JTable怎样一行一行地显示? 我的程序 无边框窗口显示问题 求教各位大虾 VB数据库 如何知道某字段有这个姓名记录? 我想学一种C++的集成环境,是C++BUILDER还是VC 我完全没基础,请帮我走出第一步:汇编工具在哪下载?我想试试那个“两只老虎” 如何在还原Cookie中的中文字? 制做彩色立体阴影怎么做啊! 我的程序 请问有没有这样的公司? 2000 server 无法使用ADSL????? 我要和她分手。。。。。。。。 一个不错的网站,进来看一下吧! map 使用的几个小问题 請大家幫我做這個的標準譯文,謝謝!!! 就像做考題一樣,不要只說它在概意思! 新手上路第一问!Hello World都不能运行 这样的SQL语句怎样转化成能在mysql下运行的 学汇编,应用在什么地方?单从功能来说,汇编强大还是C++强大 replace语句的使用方法: 一个不错的网站,进来看一下吧! 关于软加密的问题???? 请高手,两个简单的问题?在线等待???急急!!! 关于ADOQuery1.refresh的问题 我的程序 一个不错的网站,进来看一下吧! 求DELPHI开发ACTIVEX用于WEB打印指定内容的实现说明。 dreamweaver中的一个小问题,,,急!急!急! 我的程序 100分求救啊!使用TEvent对象要包含什么头文件啊? 如何使SYNTAXFROMSQL不从RDBMS中的extended attribute system tables中获取数据 一个不错的网站,进来看一下吧! 几个菜鸟问题 求教:如何配准图形和图象 如果不会C语言,也不会汇编语言,那么学C++困难还是学汇编困难 请各位帮忙超简单,散分! 向往技术的高手请进!能否用DoEvents 实现多线程呢? 谁有DATALIST分页控件,说明如何使用! 怎样用VB读取98系统当前的硬件配置??求助!!!! 在线等呀 急急!!!!!!!!!!! 急,有关视频输出的问题~~ 我在WIN ME 上UPDATE,结果导致无法收看网络电影(用WMA格式的) cannot focus a disable or invisible window 有关session与servlet/JSP的问题: 高手帮一下,谢谢~~~ 我想把一个picturebox里的图片,复制到剪贴板,并且在文件夹中能够实现粘贴功能,怎么办 NaHS 是什么酸的盐?咋读? 分度头分78等分怎么分谢谢了 有没有关于敬廉崇洁的成语故事内?同题 无级变速器是什么意思? 分度头 三等分一个圆用万能分度头 怎么来三等分一个圆 本人刚刚接触有点混 像亚细亚的意思.没啥问的了. 分度头,49等分怎么分, 33等份在分度头怎么分万能分度头上加工33等份如何分啊 敬廉崇洁的故事有什么? 自动变速器和无级变速器的区别是什么?请教专家:自动挡车和无极变速车有什么区别?在驾驶手法上有什么区别吗?谢谢. 分度头怎分61等份 CuO的四层含义如H2O的含义是:一个水分子是由两个氢分子和一个氧原子构成的。 什么是无级变速器? 桂园小学同学在“迎奥运”活动中共放飞了2008只鸽子,其中低年级同学放飞的有508只,中年级同学与高年级同学放飞只数的比是9∶16.高年级同学比中年级同学多放飞多少只? cuo什么意思 有水解程度达50%以上的盐吗? 用一种试剂就可以把NACL,NAHSO4,NAOH,HCL鉴别出.A.CA(HCO3)2B.CACL2C.BA(OH)2D.石蕊 桂园小学同学在2008年“庆奥运”活动中放飞620只鸽子,其中低年级同学与高年级同学放飞只数的比是3:8中年级同学与高年级同学放飞只数的比是9:16,中年级同学比低年级同学多放飞多少只? 13,14,15,16题, 钛金属能被什么分解呀, 同学们在迎世博活动中共放飞了2010只鸽子,低年级同学放飞了510只鸽子,中年级比高年级同学放飞只数比是9比16,高年级同学比中年级同学多放飞了多少只 15 16 17题, 有什么办法让两种金属分离吗? 用4个1平方分米的的正方形分别拼成一个正方形和长方形,长方形面积是多少? 我有标答,要的是思路或过程,例四我有标答,要的是思路或过程, 例四 碳氢油是真的还是假的有这东西吗 把4个棱长2分米的正方形,拼成一个长方形,拼成的长方形面积可能是多少平方分米? 请问不同品牌的玻璃水能混用吗? 数控分度头和分度盘的区别是什么? 把一个长方形的长增加5分米,宽增加8分米后,得到一个面积比原长方形多181平方分米的正方形,这个正方形的 17.设A={1,a\1,ab},B={0,1,a}.若A=B,则a=_____,b=____17.设A={1,a\1,ab},B={0,1,a}.若A=B,则a=_____,b=_____. NaHS是酸式盐吗 碳氢油是个什么东西?我要它的分子结构,不是要他的用途,石油天然气也是碳氢化合物,这个碳氢油到底是什么》、?我要分子结构...碳氢油这个好像是一种新能源,就是看它是真还是假,网上 1:如果a NaHS的质子守恒是?3q 我有2个圆加工件要用万能分度头等分,一个是Φ25.5mm 需要27等分 还一个是Φ21mm 需要16等分,我应该操作或者说我在万能分度头上应该怎么操作,最好是用通俗点的解释下,我是小白,请达人解析, A+B=15 B+C=16 A+C=17ABC各=几 alcl3和nahs反应方程式 CUO是什么意思 A÷B÷C=6,A÷B-C=15,A-B=17,则A+B+C=多少,A×B×C=多少2009年初八前一定要回答出来! 我有标答,要的是思路或过程, cuo四层含义 什么是煤沥青 我有标答,要的是思路或过程,各个选项.我有标答,要的是思路或过程, 各个选项. 柳州话里的“撮(cuo)”是代表什么意思啦? 煤沥青最近有什么动态? 火药是那个国家发明的? 毒鱼 煤沥青的主要用途 初三化学酸碱盐,求详解!我有标答,要的是思路或过程,谢谢! c怎么鉴别初三化学酸碱盐,求详解!我有标答,要的是思路或过程,谢谢! c怎么鉴别 《春江晚景》是谁的画作,一种肝脏内有剧毒的鱼是哪种那种鱼是日本人爱吃的 山西省煤沥青价格是多少?有谁知道山西最近在中温沥青价格行情是怎样的? 碳氢油怎么样?有谁了解这一块的?能不能做啊? 什么是绝缘体,请从电子转移方面解释其原理 NAHS分解成什么 甲醇和碳氢油哪个作为汽车动力油更好?_什么油料更有发展前途 “敬廉崇洁”的小故事 NaHS什么情况下结晶? 什么是碳氢油 敬廉崇洁的人物故事(故事比赛用的,3分钟左右,名人的故事,3分钟左右,别太长也别太短 ,比较好理解的,有些语言描写的更好, 西班牙承认与美国在情报搜集方面存在有叙利亚副总理贾米勒被指擅离岗位被解职法国表示希望参与新加坡扩大地铁网络计开审埃及穆兄会 3名法官纷“病退”日本自民党大力推动修宪国民公投 拟降德国议员差旅费暴涨达688万欧元 媒德国锁定美情报部门窃听站位置 位于使女童目睹家人在车祸中被烧死 获赔1.尼日尔沙漠发现87具尸体多半为儿童 萌猫每天造访商店 望着橱窗里老鼠或鱼叙反对派称副总理遭解职或为叙政府“化德国派代表团赴美 要求签署协议保证不日本一银行向犯罪集团放贷200万美元意媒曝美国曾监听罗马教皇 美国安局予安倍访问土耳其 助日企获福岛核事故后南非20名白人右翼分子因叛国罪获刑 新闻集团窃听案冲击传媒司法 陪审团打日本一对夫妇因弃婴被捕 交代称已扔掉朴槿惠11月发表施政演说 是否提国情中国留学生勇救日本小学生 安倍将为其澳大利亚使馆被指替美监听亚洲 北京河穿上这个她们比一丝不挂美多了!信不过的智能家居,连保险公司都拍广告省钱攻略2:如何买性价比高的羊毛看电脑太久眼睛酸痛如何缓解?2015,微信还有这些功能, 那些不【一闻】一段文字一幅插画,只为给你那三栖巨星Vincent Van Pa纳尼?德州扑克是金融从业者们的标配社虎皮青椒红枣低糖面包AJAZZ黑爵 机械键盘和小拍档【一文】文字很短,道理很深硅谷科技创新者都有哪些特征?14 件大胸女生无论如何都做不到的事皮肤不好的根本原因 99%的女性看软心巧克力蛋糕奇迹暖暖优雅性感的舞会皇后套装介绍股市三连跌:各路名人,各种表情出街了王栏树梅菜扣肉中国在线外卖行业竞争、模式与投资策略世界末日的真正含义!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘