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

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

Google Analytics为什么会这么快 【MDCC 2014】Xamarin深入体验营——开发实战大揭秘 【MDCC 2014】电信技术专场:运营商与开发者如何合作共赢 【MDCC 2014】高德LBS大赛闭幕式暨颁奖典礼:下一个50亿应用花落谁家? MDCC 2014移动开发者大会开幕:全生态系统齐聚 开发者成主角 蓝港互动有限公司董事长&首席执行官王峰:移动互联网泛娱乐化趋势 多盟联合创始人&总裁张鹤:多盟DSPAN助力开发者高效变现 创新工场联合创始人汪华:移动互联网时代的跃迁式增长 阿里巴巴集团UC移动事业群总裁俞永福:AMAP Inside——更专业、更开放 《程序员+》移动应用上线 启动“2014 MDCC十大人气应用/产品评选活动” 微软开发体验与平台合作事业部大中华区DX部门总经理Srikanth Raju:基于云的跨平台开发 Facebook平台工程合作部亚太区总经理张博:通过Facebook构建下一代移动应用 Vungle工程副总裁Wayne Chan:移动视频广告的未来 友盟副总裁焦岳:2014移动互联网行业趋势&大数据的行业价值与运营支持 联发科技创意实验室副总裁Marc Naddell:以小博大的可穿戴方案 用友软件股份有限公司高级副总裁谢志华:企业互联网移动化触手可及 【MDCC 2014】英雄会晚宴——厉兵秣马,再上征程 移动开发技术与平台峰会(上):流量优化、数据管理、IM、LBS与跨平台开发 【推广、盈利与投资论坛】探寻推广与盈利新趋势 【企业移动化论坛】翻山越岭,创新突围企业移动化 解读微信与开发者双赢的开放能力 2014年10月操作系统份额:Windows 8.1份额喜人,Linux跌惨了 智能硬件峰会(下):苹果、微信、小米带给移动医疗产品开发的启示 移动游戏峰会(下):从端游转型手游、如何做一款不一样的游戏 移动游戏峰会(上):小团队如何做出大制作、游戏防作弊攻防战 深圳微信开发者大会:拒绝概念 这次只谈“怎么做” AMD应邀出席HPC China 2014,重磅推出新一代Firepro-S系列高性能显卡 你就是主角,MDCC 2014交流对接活动回顾(组图) 解读最具O2O属性—哈根达斯微信企业号的成功之道 值得Java开发者参与贡献的十个开源项目 LokiJS:纯JavaScript实现的轻量级数据库 怎样求出一个点的坐标??????急急!!!! 请大家看一看这个分页程序,为什么在页数大于20时,按下一页时下面的页数还是显示的1~10页!!谢谢!! 我的linux在放mp3時總愛死,為甚麼? 唉,弄了好几天了,如何解决?????????????? 请问哪里有免费的PHP+MYSQL主页空间呀! 大家快来帮忙:数据库的一个小问题 我现在想学一门新技术,不知道是学VC++,JAVA,还是刚刚出来的。NET技术呢?请高手指点呀。 高分征解:一个动态提示窗口的问题,给出答案必定给分!!!求救我啊!! 在这里赚分真不容易呀! 怎样检查FORM中CHECKBOX和RADIO的值呢 那里有在asp中操作word对象的详细教程? 请问:如何得到TForm的窗口句柄? authorware中的按钮。 哪里有发送mail成功的php程序!! 关于上传数据的一个特殊问题,有点难 怎么用OLE实现与手机的通讯?? 汉语分词算法 grid显示问题 成为Delphi高手须看哪方面的书籍,请高高手指教? 关于属性页的小问题? 为水园增加点正气: 大家都是斯文人吗,呵呵||||| 诗经国风2001版----之桃夭 高手高手教教我 +++++++++++++一个很奇怪的问题************* 请问:有没有专门介绍C++函数使用的书籍? 提個有點難度的問題.看問題的有獎. 高手请看:这语句错在哪? 哪儿有dos的原代码? 谁能平息这几天水园的争端^^^^^^^^^^一个详和的水园^^^^^^^^^^^我只能拿分支持 为何显示黑乎乎的一片,chick!!!!!!! 原来女人也好色,欢迎MM。 心芯蕊~来拿分~~~~MM要分能不给吗??砸锅卖铁也要给啊!~~~~55555,可怜我的分啊~~~~~~~~~~~ 着急??一小段代码!!谁来看一下?? 男子汉说到做到,我在此特地向一位女士道歉 高分求救!急急! ! ! ! 奇怪,编译DIRECTX例子正常,新建一工程后改写主文件后运行BltFast函数为何这样? 急求高人!不简单:关于common dialogbox控件的问题? 怎样学可视化编程? 用Jmail收信后,为什么WORD之类的附件打开总是乱码?? 请问如何使用BCB中的PageControl创建Wizard? 别人跟的帖子也应该能回复呀! Rational Rose2000 Enterprise Edition的License Key是什么? 哪位好兄弟肯给我一个Jbuilder4的序列号? 就有两个月了,还没怎么看书,不知道能不能过高程!!! -------我和我MM系列(转)几乎是完全版 有MM和没MM的都来看看吧 当然MM也可以看~~ 建议:在此开设一个程序之家聊天室。 请教一个简单问题!! 请问各位:如何显示GIF图像??? 最近水园很没劲,看样子是要离开的时候了,虽然我来的时间不是很长。唉,为什么会这样? 这几天晚上我都会在263战网 谁能 提供超大空间 用于上传PB80光盘 月末,大富翁银行将作月结,如果跟本银行还有业务关系,速来通知 氯酸钾(KClO3)中氯元素的化合价为() A.-1 B.+3氯酸钾(KClO3)中氯元素的化合价为() A.-1 B.+3 C.+5 D.+7 KClO3受热分解用氧化还原的思路配平它. k2cr2o7+naoh 颜色为什么不发生明显变化 KClO3中各元素的化合价分别是什么啊? 加热氯酸钾和二氧化锰混和物的化学式 h2so4环境下,k2cr2o7氧化h2o2颜色变化过程我做实验时逐滴加入H2O2,溶液先变暗绿色,渐变成亮绿色.应该是三价铬吧?为什么会不同颜色? 氯酸钾的化合价(每个元素是几价要标出来) 氯化钾的化合价(每个元素是几价也要标出来) 加热氯酸钾和二氧化锰混合物出来的是什么? 为什么K2Cr2O7,KMnO4颜色比CuSO4,FeCl3等深得多?(K2MnO4的灰绿色颜色也很深,但经不起稀释会歧化)我一浴缸水加了几粒KMnO4(不超过0.1g)结果整浴缸水都变成紫红色了K2Cr2O7,差一点,但稀释10000倍还有 kclo3请写出每个元素的化合价 氯酸钾和二氧化锰混合加热支取氧气的化学式那个加热还有二氧化锰不是要写在等号上面吗? K2Cr2O7+Na2SO3生成什么 K2CR2O7在反应中得电子怎么算啊详细点 请标写说明KClO3中各元素的化合价 KCLO3和MnO2的反应化学式 K2Cr2O7怎么读?有奖征询,奖积分,走过看过,不要错过望各位大侠,助小女一臂之力,大恩大德,没齿难忘 求KClO3中钾元素的化合价 kclO3是什么的化学式 化学问题K2Cr2O7读什么?2和7都是下标 HClO4 KClO3 MgCl2 氯元素的化合价怎么求3个元素在一起的 怎么求呀..郁闷死我了.. KClO3 Kmn2O4是什么的化学式 高中化学.k2cr2o7怎么念?了 氯酸钾中氯的化合价是多少 H2O2、O3、SO2、HClO中漂白品红原理与其余三种不同的是 化学方程式配平:()K2Cr2O7+()Fe3O4+()H2SO4 求:kclo3,cl2,clo3-,alcl3中cl的化合价, Cl2,ClO2,O3,H2O2中氧化性最强的是咋算的呢?( ⊙o⊙ K2Cr2O7+H2SO4+(NH)2Fe(SO4)2-->请帮忙完成反应方程式并配平 245克氯酸钾和3克二氧化锰混合物加热完全反应生成多少克氧气?反应后剩余固体的质量是多少 求化合价:Na2SiO3 Si【】 KMnO4 Mn【】 KclO3 cl【】 HclO4 cl【】 Cl2,O3,H2O2的氧化性比较RT,并且如果要是夹在常见的氧化物里面,如何加进去? 将25克氯酸钾和二氧化锰的混合物加热到不再放出气体时,可得15.4克固体混合物:求:(1)生成多少克氧气 (2)有 氯酸钾分解的化学方程式怎么读? 过氧化钠、过氧化氢、NaClO、HClO、ClO2、SO2、O3、活性炭等物质与漂白粉的漂白原 取氯酸钾(KCLO3)和二氧化锰(MnO2)的混合物31g置于干燥的试管中,加热到质量不再减小为止,冷却后测得剩余固体质量为21.4g.试计算置得氧气多少克? 假设FeSO4按KCLO3的方式分解,反应的化学方程式为假若他分解生成两种氧化物,他的反应方程式为 HCLO氧化性强于HCLO4,怎么讲呢? 在原子团CN-中C显几价 氯酸钾(KCLO3)在二氧化锰催化剂并加热的条件下能较快的分解生成氯化钾和氧气,试写出化学反应方程式要得到8g氧气,需分解氯酸钾多少克? HClO4和HNO3 反应?方程式有不? 原子团的化合价 科学兴趣小组学习了二氧化锰(MnO2)催化分解过氧化氢的实验后,进行如下实验.(一)选择装置并检查气密性.(二)称取0.1克的二氧化锰粉末加入容器中.(三)量取50毫升溶质质量分数 为什么HClO的氧化性比HClO4强 什么叫原子团?什么叫原子团化合价希望大家尽量讲详细一点咯!谢谢拉 只有MnO2才能对过氧化氢的分解起到催化作用吗? 用化学方程式证明KMnO4氧化性比MnO2强 原子团的化合价到底怎么理解.莪不会原子团的化合价那根价是什么啊.. H2O2被FeCl3,CuO,MnO2催化原理并说明哪些物质能做催化剂为什么要化学方程式还有CuSO4 为什么Cr2O7-的氧化性大于SO2能说明 K2Cr2O7能将Na2DO3氧化成Na2SO4? 化合价是什么?怎么计算原子团中某种元素的化合价? MnO2催化H2O2我猜的是MnO2+H2O2=H2MnO4.2H2MnO4=2MnO2↓+2H2O+O2↑纯属猜测...呵呵..我是根据高锰酸不稳定猜的...不对的话请指教下....我想知道的是MnO2催化H2O2分解的机理... 如何证明一个物质的氧化性比另一个的强?如何证明一个物质的氧化性(或还原性)比另一个物质的强?还有在酸性或碱性条件下.(可以举例)还有什么是极性键和非级性键?怎么区分? 在氧化还原反应中kclo3里面k,cl,的化合价为多少k的化合价为+1,cl的化合价为+5为什么那?cl的化合价不应该是-1么?如(nacl)cl的化合价不固定么?那k的化合价固定么?一般元素化合价固定么?什么样 h2o2用MnO2催化分解是否需要加热? k2cr2o7与k2cro4的氧化性谁强? KClO3中Cl的化合价是多少,怎么算的, 求得KCLO3的分解率想探究是否只有MnO2能催化KClO3受热分解?CuO、Fe2O3、Cr2O3等对氯酸钾的受热分解有没有催化作用?已知投入氯酸钾为0.6克,投入氧化铜作催化剂,产生气体为67.2ml(已折算为标况) 求 试比较KMNO4,MNO2,O2氧化性如何进行比较的呢 求出KClO3中Cl的化合价谢谢了,Cl不是-1价吗 KCLO3的分解百分率是什么意思 k2cr2o7加硫酸颜色变
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn