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

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

让VB5支持动画光标 让窗口拒绝接受键盘和鼠标事件 -VB资料 让窗体处于最前面 -VB资料 让窗体居中 -VB资料 让所有的控件都动起来 -VB资料 让最大化和最小化按钮消失-VB资料 任意多边形的窗口-VB资料 如 何将「拒 绝 被 盖 住 的 窗 口 」还 原-VB资料 VB如何创建椭圆形的窗体? VB如何创建无Icon的窗体? VB如何防止Edit框中的Password不被非法获取 VB如何将鼠标显示成动画鼠标? VB如何利用程序拉下 ComboBox? VB如何让窗体右上角的X失效? VB如何使Form的背景图随Form大小改变 VB如何使Text文本框的属性只读? VB如何使窗体右上角的"X"无效? VB如何使窗体最小化并消失 VB如何在VB和Delphi中快速实现立体化窗口显示 VB如何在VB中实现绘图区的大十字光标 VB如何在VB中制作不回显的文本框 VB如何制作浮动式窗口 闪烁的Label-VB资料 设定StatusBar的文字成不同的颜色-VB资料 设计一个可中断循环的按钮-VB资料 设置“执行无用户界面”-VB资料 生成一个透明窗体 -VB资料 实现窗体内部的左右移动 -VB资料 实现鼠标移到窗口上时变大,移出窗体时变小(如《东方快车》)-VB资料 实现图片平铺于窗体中-VB资料 使程序的标题条闪烁 -VB资料 一个很简单的SQL查询问题! 高分赠送:几个基本网络问题-------------------送分了,100,不够另开贴 我是一个坏女孩,喜欢晚上出来玩 关于保存PictureBox控件中的图象的问题 Handle transformNode Exception 问题 高分赠送:几个基本网络问题-------------------送分了,100,不够另开贴 高分赠送:几个基本网络问题-------------------送分了,100,不够另开贴 请问C++Builder里嵌入ActiveX Microsoft WinSock 控件到底能不能用啊!!!急!! 我建的数据库表为什么是只读的? 高手们请进来看看引用WEB SERVICE的出错! asp空间~?? 什么是EJB等等 关于某些考试中的概念问题,基本上是菜鸟级的 关于next_premutation的算法,欢迎进来讨论 徐州的朋友进来,留下联系方式,交流交流。 jw领分 jw领分 jw领分 View 的使用会不会降低查询速度 索引超出了数组界限 为何自己用vb开发的ActiveX组件不能在asp页中运行 kvm & Redhat8.0, 移植问题??? 高手或有兴趣的朋友看一下,谢谢。(一) kvm & Redhat8.0, 移植问题??? 高手或有兴趣的朋友看一下,谢谢。(二) kvm & Redhat8.0, 移植问题??? 高手或有兴趣的朋友看一下,谢谢。(三) 有谁可以给我介绍一本比较好的介绍算法的书 她是我的初恋,半年前我们再次相遇,我对她说我一直爱她,她似乎也爱我,但现在她说她有男朋友了,不是很久,我想和她断绝联系,她又说会 如何防止多个程序实例同时运行? Interface not supported,Delphi作Com+服务时,有客户端报此错,紧急求助!! 难道《80X86汇编语言程序设计教程》保护模式部分的例子没人试过吗? Canvas.StretchDraw在WinMe有效,但在Win2000无效?!得如何解决? 本人急求《深度探索C++对象模型》一书完整E版 寻《深度探索C++对象模型》一书完整E版! 想从C++转到DELPHI,请前辈们指点一二 请问那里有.NET基类的详细介绍?提供者给分。 网页上的图片都是怎么切割的? 什么叫hr? 求教组网方案!有实践经验者请进 帮助看看用什么控件比较好。 OLE打开Excel文件的问题 关于c远程调用 这个病毒太狠了! 如何将IE打印功能去掉?禁止别人打印网页? 请教关于TImageList中存储多幅图片的问题 100分赠送 寻架构? 请教高手:如何在VB开发的程序中准确判断用户的可用内存? 用jb怎么在另一个类中控制frame中的一个label的text的实时的变化?多谢 如何制作PB应用程序的安装程序?高分求救。 WinXP里怎样备份norton antivirs的升级数据? 我只是给自己加点分啦 快救救我吧,我的存储过程返回值有问题?? 营养物质的吸收和运输主要有哪几种途径? 麻烦用诗句回答我的问题最高的楼——最深的友谊——最有用的武器——最出名的寺院——最高雅的曲子——最强的生命力——最寂寞的时候——最难请的客人——最伟大的精神——最快速 形容好心办错事 的成语 各种营养物质的功效、摄取途径?如:有哪些维生素,那些矿物质,等等~ 天方地圆下料方法我想要具体的计算和手工的下料方法,不要软件计算,能举个例子更好,比如,长500*500高400,直径300 形容别人做坏错事了,我也跟着学,的成语是什么?她先做的不对,然后你也学着做不对的事情去伤害她.的成语是什么? "感染"一词是什么意思 鸟尽弓藏,兔死狗烹怎么造句? 一个人做了错事,别人就老以为你不是个好人,该用什么成语来形容这个人? 干涉条纹的特点以及衍射条纹的特点请分别列出来. 天方地圆怎么展开 怎么判断溶液间是否能发生反应 三视图,包括有 正剖视图,左剖视图,俯视图. 为什么衍射现象越明显,条纹的亮度越差 萝卜细胞液浓度大于b烧杯中液体的浓度,萝卜细胞发生了什么的过程 求下列图形的三视图和剖视图,请大师花费宝贵的时间帮我解答一下!请各位百忙之中帮我画一下!最后一点分了!第2幅圆柱上下直径是一样的!关键是看这种虚线图柱的技巧,三视图在其次,图 为什么太阳是圆的且能发光发热呢? 设计实验:测量一种细胞液浓度 轴测图与三视图及剖视图1.空间平行的两直线,其轴测投影的关系是 ( )A.平行 B.相交 C.垂直 D.以上都不对2.正等测三个轴间角都为 ( )A.120° B.135° C.90° D.以上都不对3.斜轴测图 电动机漏电,接地电阻2欧,电流5A.地面潮湿,人体电阻1000欧,流经人体电流最大是多少?麻烦把过程也写给我,谢谢哈! Lipofectin 2000是怎么样的转染试剂?为什么其转染效率高? 画空间几何体直观图常用什么画法?其性质有那些? 人体电阻1000欧,那如果接1A的电流,根据欧姆定律U等于I*R,那算出来电压是1000伏了 脂质体2000被人离心了, (大学制图课)做出1-1,3-3,4-4的断面图以及2-2的剖视图 苟字的第五画的名称 维生素H也就是生物素里有动物成分吗?我想知道市面上出售的维生素H是从动物的肝脏里提取的还是从植物或酵母里提取出来的,谢谢.市面上的多维片里大多数都有生物素,不知道那里面的成 细菌、霉菌、酵母菌对营养物质的吸收和消化方式 急 lip2000能转染DNA吗 大多数细菌生活所需的营养物质的来源和其营养方式分别是 形容一个人不懂得古迹的成语是什么比如他喜欢西方就把东方文化说成老土 把中国文化说成垃圾 对于这样的人怎么说他 维生素H作用是什么?从哪些东西里提炼出来的? 汽车里的太阳能苹果花放在房间里,太阳照不到会摇动吗 形容一个人傲慢轻蔑无礼的俗语(不是四字成语的),说出来别人听不懂的 第一道题前半段是 内接,外切多边形,经过各多边形顶点的园叫做多边形的, 鸟尽弓藏 怎么造句?需要现代文例子 形容不听别人的意见,自己说的见解,用成语怎么表达,不是各抒己见哦 为什么细胞运动有分被动运输和主动运输呢? 鸟尽弓藏兔死狗烹造句 1从文中找出下列句意的成语 (1),形容非常悲痛( ) (2),形容听不进或存心不听别人的意见.( )法国雕塑家罗丹(1840~1917年)走进艺术博物馆时一下被一座雕像吸引住了.这座雕像取材 电导法测定水溶性表面活性剂的临界胶束浓度 25 ℃文献值是多少? 请用"鸟尽弓藏,兔死狗烹"造句!请不要从百度百科或百度词典里找! 物质燃烧需要的条件? 质壁分离实验细胞液浓度怎么变 功组词有哪些 为什么光的干涉和衍射得到的都是明暗相间的条纹? 英语翻译快 功的组词有哪些 试述三大营养物质的吸收形式和过程 It's usually very hot and sunny compared to many other places.改为同义句 IIt's usually much ___ and ___ than many other places. 衍射的本质是干涉? 糖 蛋白质 脂肪 三种营养物质的吸收途径和形式是怎样的! We had___.It was sunny and not too hotA、bad weatherB、a good weatherC、good weathersD、good weather 光的干涉和衍射的原理和本质是什么 表是“听”的词.麻烦一下了. 光是由什么构成的?光有三态么?如果有分别是什么?首先,光是不是一种物质,它是怎么产生的,最终又将如何消失?如果它是一种物质,又是由什么组成/构成的呢?那么他是否像水一样,具有三态?那 零件图中画剖视图和断面图的原因!急! 一联的诗句是指一句诗还是一整首诗呢?麻烦回答快点. 我记得有一个成语,大致是形容劝人多次人家不听然后就会气馁放弃,那个成语是强调放弃,是个什么成语?好像是“.,必有一.”,想不起来了.1 南京电视评政现场:一官员介绍政策时被报告显示:长三角主要污染物臭氧 PM宁波机场将执行冬春季航班时刻 飞宜昌杭州楼市迎来历史“高库存” 局部价格长春教育局回应\"雾霾天气未及时通知财政部:允许上海自贸区设立保税展示交联合国马里特派团遇袭数人身亡 潘基文环保部对京津冀等重点地区开展大气污染百度百发收益率8%被指违规 回应称未国土部下放四项权责至省 178个市县杭州首个公园地下车库遇冷 一半车位虚房博会成交124套创5年新低 “卖房27号强台风逼近日本 安倍指示万全对奥巴马称阿富汗战后方案有助长期保护巴泰国一旅游车刹车失灵掉下悬崖 致17中国纺织工业展圣保罗开幕 遭巴西纺织澳女子遭熟人实施性虐待 被迫吸瓶装煤俄移民局:2015年起移民在俄就业须洪都拉斯登革热疫情加重 已致27死3日本国内近期频发强行要求他人下跪事件埃及教堂婚礼遭枪击多人伤亡 过渡政权上海女子监狱突发大火 幸无人员伤亡我国残疾人就业率维持在45%左右昆明大雾 机场“困住”逾万旅客斗智斗勇美建议航企经过中方防空识别区时向中方成耀东出任上海申鑫主帅节日放假不调整也是一种选择阿尔滨称没打算卖于大宝成耀东出任上海申鑫主帅四川主帅普拉达主动请辞北京男篮锁定老马替身 34岁老将是N老马起程返美手术艾滋病患者:在医院最受歧视 医生用纸老马起程返美手术人和足协杯祭高中锋摆擂交口山体崩塌致7死企业瞒报伤亡人数普拉达赢球后宣布辞职人和足协杯祭高中锋摆擂普拉达赢球后宣布辞职宝宝过冬保暖御寒并重新华联累计捐款3亿元回报社会
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘