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

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

谷歌锁死SDK,能阻止Android碎片化吗? KitCam团队专访:为应用做加法也能雄踞榜首 谷歌哭了:Replicant 4.0 SDK发布搅乱大局 忍者神龟与禅宗启示:如何突破移动广告困境 Linux会是更好的游戏平台?暴雪是这么认为的! 新型恶意软件瞄准Java服务器 AWS被纳为“战略物资”市值或可达到300亿美元? 十张图带你入门Map/Reduce 低端Android野心,Intel发布Atom Z2420处理器 淘宝网的技术发展史(一)——个人网站时代 看Pinterest如何通过架构变化将EC2成本降低了62% 内容vs渠道:法国电信商Free叫板Google 让网站成为应用:Firefox OS掀起革命风潮 屌丝伞兵的逆袭:4人+盛大+远程+最佳手游 新年头彩:Chartboost喜获1900万美元融资 高富帅跻身移动领域 福特开放车载声控API 传低端iPhone最低只要99美元 你怎么看? 辉煌不再 Encanto超级计算机可能被拆分“出售” 知己知彼 企业应用移足云端必须清楚的10大方面 NVIDIA推Android掌机:七年孕育可否成就野心? 人民日报:2013关于新媒体的8个猜想 互联网大时代成就创新小企业 移动互联网创新论坛报道 Mobile Detect:判断移动设备类型的开源PHP类 我是如何Hack Facebook Employees Secure Files Transfer服务的 投资可再生能源:Google 2亿美元投资风力农场 构筑商业生态系统 阿里巴巴集团全面变革组织架构和管理体系 美国众多银行网站遭DDoS攻击 疑似伊朗所为 构建高可扩Web架构和分布式系统实战 CES2013 AMD发布移动处理器路线图和环绕计算概念 对话Linus Torvalds:大多黑客甚至连指针都未理解 PaaS玩家们,怎么演好自己的角色? 请问高手: 如何在VB.NET中调用象GetObject那样的函数 300分!!急急急!!各位大虾有提供关于报表的控件带源码的 请问各位大侠,怎么用批处理的方式开启一个后台服务程序? 如何对access文件加密!!!! 再次送分:如何求一个已打开ADO记录集中当前记录的行号或索引? 急!急!在用户界面线程中,如何接收其它窗口发送的消息? 我的toolbar潜入一个对话筐怎么是灰的???? :)请问:网上能不能找到破解了的Pro-e2000(中文版)啊? 关于退格键! java与C的问题,怎么办? VC里如何调用std里的operator new和operator delete 有沒辦法使成員函數只供指定的 class 呼叫! 关于DELPHI中的DBGRID控件 关于enhydra4.0+kelp4.0+jbuilder4.0。 能不能用Mscomm控制并口,如果行,应该怎样将一串ASCII值发送到并口;如果不行,能用其它方式吗?(最好能提供例程)多谢了。 求救,请教ado中有关事务的问题。 异想天开的问题???,进来就给分!!!! 请教高手,我如何将*.swf文件从网下摘下? 集线器与交换机怎样级联? 请问如何用RasDial 类似冰河“搜索主机”的功能怎么实现啊? 如何利用socket截获80端口数据?请给出源代码。 水晶报表的问题 Help的窗口 送分:关于数据库中的数据在前台显示的问题,敬请高手指教 请问一下各位PB FANS,PB中的自定义事件中的extenal选项有何作用? Label的小问题,以后给分,现在确实没分了。 测试a 有沒辦法使成員函數只供指定的 class 呼叫! 请问如何给listview添加鼠标拖拽功能,如从本视图中拖走一行? Jbuild and Visual Age for Java 只使用数据库表单如何不带环境? 为什么在Cmd.exe 下可以运行,但是在ASP里面却没有办法写进数据???斑竹怎么只提供4页的讨论内容呢?? 救急,启动winNT时候inetinfo.exe总是共享冲突,该咋解决? 如何防止内存泄漏 帮忙看诊断一下遇到的问题。 Fatal error C1010: unexpected end of file while looking for precompiled header directive是什么意思?怎么改正? 关于数据窗口 D3D8的疑問 作动态连接库链接时出错? rLabel的小问题,以后给分. WebSphere 4.0中是否已经直接实现了connection pool CSDN的bug报告:您不能给自己加分...... ORACLE里的中文字符集怎么解决?高分求救!!! 身为一个程序员,谈谈这些年里你所拥有的成功经历!见识一下CSDN牛人总汇! 这是怎么回事呀? asp怎么调用存储过程,主要是参数问题怎么传递 高分,给高分!!! 如何在useradd,增加一个用户的同时,限定这个用户的使用空间 关于内存分配的问题 由金山英文写作助理想到一种木马机制 浓硫酸可将亚铁离子氧化为铁离子吗? 三氧化硫与石灰水反应生成沉淀的化学方程式 溶液中铜离子含量的多少对溶液颜色的影响做题时发现有时是绿色有时是蓝色但不只是在什么情况下 一道化学基本实验操作题若用镊子直接将固体药品投入试管,会有什么后果? 二氧化碳与澄清石灰水反应方程式? SO2与C反应能生成SO3么 被氧化的铁与稀硫酸反应的化学方程式?急用 二氧化碳与石灰水反应方程式 南京哪有买化学实验仪器? 亚铁离子如何被氧化为铁离子?写出一个化学方程式. 二价铁离子能不能把二价铜离子还原成单质铜,有什么反应条件请帮忙说明下,比如还原性强弱,电势等 化学实验仪器都有什么,包括药品 三氧化硫与磷的化学反应方程式能反应的话...化学方程式写下.(要配平的) 单质铜和二价铁离子谁还原性强?观察这两者和氧气反应的情况应该是2价铁强但是对于相同氧化剂3价铁,Cu能被还原,而Fe2+不能被其还原,这不能说明Cu还原性较强?到底是怎么一个情况啊? 请问天津市区哪里有化学实验仪器和药品?八百里加急!如果好会追加分的! 氢气爆炸验氢气是不是一定要遇到明火才能爆炸?用两根导合在一起,通上正负静电,这样能爆炸吗?里面有水还会爆炸不 铁和+2价的铜离子生成铜单质和+2价的铁离子 这是什么反应,要化学反应方程式! 二氧化硫与水反应的实验当把水装入有二氧化硫的塑料瓶时,瓶子变瘪了.此现象发生的可能原因1二氧化硫能溶解于水2...请问二是什么?(是二氧化硫与水产生化学反应这个答案吗?)接着下一 为什么铁单质和硝酸直接生成3价铁离子?而不是先生成2价铁离子,再被氧化为3价铁离子? 铜二价离子是否能与铜单质发生反应? 银离子的颜色是啥捏? 以下说法中能证明无色透明液体是纯净水的是A.测得该液体pH=7B.电解该液体得到氢气和氧气,且其体积比为2:1C.向其中投入金属钠,钠于液面上迅速游动,并发出丝丝声D.在l.0l×105Pa压强下 关于单质铁溶于稀硝酸反应的离子方程式aFe +bNO3- +cH+ == dFe2+ +fFe3+ +gNO +hN2O +kH2O问1、b、c、d、f的关系式问2、d、f、g、h的关系式 三氧化硫与水反应的离子方程式. 下列实验操作正确的是A.不慎将浓硫酸粘到皮肤上,立即用大量的水冲洗B.在食盐溶液蒸发结晶的过程中,当蒸发皿中出现较多固体时即停止加热C.先在天平托盘上放一张洁净的纸,再把氢氧化钠 Fe与浓或稀硝酸反应能被氧化成+3价铁离子吗?+5价N能被还原成NO2吗? 三氧化硫和水的离子方程式 水分子是无色透明液体RT 硝酸能将二价铁离子氧化为三价离子吗?那硫酸亚铁与硝酸反应生成啥啦?硫酸铁、NO、H2O吗?我咋配不平啊? 大家 帮帮忙 谁知道 四价水合锰离子 是什么颜色啊 谢谢了! 水是无色透明液体,水分子也是无色透明液体.这句话对吗?为什么 氢气爆炸的表达式氢气爆炸的文字表达式 锰离子与锰酸根各是什么颜色的?还有高锰酸根呢? 三价铬在pH等于多少时开始生成氢氧化铬沉淀? 氢气爆炸时的文字表达式 三价锰离子是什么颜色.是粉红色吗?是否和七价锰一样粉红色?如何区别? 三价的铬离子水解的PH是多少? 2个氢气分子化学公式怎么写 锰离子沉淀什么颜色? 使三价铬完全沉淀的最低PH值多少? 如何把金离子便为金单质?越详细越好,500分 几种常见铜盐溶液的颜色问题求解答 化学试验操作的注意事项---急急急!过滤水的实验 怎样使铜由单质变为离子 SO2,SO3怎么念,SO2,SO3分别和水反应生成什么?我在先等候, 下列实验操作或对实验事实叙述正确的是(化学)(1)下列实验操作或对实验事实叙述正确的是① 用稀硝酸清洗做过银镜反应实验的试管;② 配制浓硫酸和浓硝酸的混合酸时,将浓硫酸沿器 离子变单质是被还原吗负离子,比如I-变成I2,是被还原吗 亚铜的盐溶液一般是什么颜色? 下列实验操作中错误的是( ) 下列实验操作中错误的是( )A.蒸发操作时,应使混合物中的水分完全蒸干后,才能停止加热B.蒸馏操作时,应使温度计水银球靠近蒸馏烧瓶的支管口处C.分液 三价铁离子怎么变成铁单质 SO2 SO3那个更易与水反应为什么 铁氰化钾中的三价铁离子能氧化金属单质钴吗 三氧化硫与氢氧化钙反应方程式? SO3怎么反应生成SO2? 三价铁离子加什么可变成铁单质 三氧化硫和氢氧化钙反应吗? 铜离子溶液稀释颜色变化的原因 三价铁离子如何到铁单质? 我想做一个氢气和氧气爆炸的实验.目前有现成的氢气和氧气有矿泉水瓶子装着.有什么方法混合引爆.要安全点的.仪器简单点的 so3与什么反应生成so2
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn