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

做动态显示的控件-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
做动态显示的控件-Delphi资料

Delphi以其优秀的界面和简单的用法深受广大程序员的喜爱.笔者经过摸索

自做了一个具有动态显示特性的控件。只需在主程序中调用该控件的一个方法即可实现动态显示。在动态显示的同时

为了不影响主程序做其他的事情

笔者采用了比较流行的线程技术。

一. 方案

自做一个父类为TEdit的控件

应该有一个Text属性,能自由地输入要动态显示的内容; 并且有一个MoveShow方法,使的Text的内容能动态的显示。在主程序中创建一个线程,启动线程时,调用该控件的MoveShow方法。

二. 制作控件

启动New Component

选Tedit为父类,建立L_Tedit1类,并创建L_edit.pas. 再编写L_edit.pas 如下:

unit L_Edit;

interface

uses

Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs

StdCtrls;

type

L_TEdit1 = class(TEdit)

private

{ Private declarations }

protected

{ Protected declarations }

public

{ Public declarations }

constructor Create(AOwner:TComponent); override;

procedure MoveShow;

published

{ Published declarations }

property Text;

end;

procedure Register;

implementation

constructor L_TEdit1.Create(AOwner:TComponent);

begin

inherited create(aowner);

color:=clblue;

font.Color:=clyellow;

font.Size:=12;

font.Name:= '@仿宋_GB2312';

tabstop:=false;

update;

end;

procedure L_TEdit1.MoveShow;

var

edit_length

i:integer;

edit_char:char;

chars: string;

begin

chars:='';

if (length(text)=0) then

text:=’Welcom you to use the software!’;

edit_length:=length(text);

for i:=1 to edit_length do

begin

edit_char:=text[1];

if (Ord(edit_char) >127) then

if length(chars) >1 then

begin

text:=copy(text

2

edit_length-2)+chars;

chars:='';

end

else

begin

chars:=copy(text

1

2);

text:=copy(text

2

edit_length-1);

end

else

begin

text:=copy(text

2

edit_length-1)+edit_char;

end;

update;

sleep(100);

end;

end;

procedure Register;

begin

RegisterComponents('Samples'

[L_TEdit1]);

end;

end.

再保存该文件。

启动Image Editor 创建L_Edit.dcr

选New- >Bitmap,自己做一个图标,保存名为L_TEDIT1(与新建的类同名)。注意L_Edit.dcr 与L_Edit.pas 要在同一个目录中(缺省为\delphi\lib目录中。再单击Install Component. 选Into new package属性页,填上L_Edit.pas 的路径和文件名,并在该路径下新建L_Edit1.dpk 文件。之后一直单击OK即可。此时我们可以在Delphi 的工具栏Sample 一项中看到自己创建的图标。

三. 编写主程序

在主窗体Form1中放一自己创建的控件,在Text的属性中填上要显示的文字(中英文都可)。与该窗体对应的L_unit1.pas内容如下:

unit L_Unit1;

interface

uses

Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs

StdCtrls

L_Edit;

type

Tmythread=class(TThread)

protected

procedure Execute; override;

end;

TForm1 = class(TForm)

L_TEdit11: L_TEdit1;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

MyThread1:TMyThread;

implementation

{$R *.DFM}

Procedure TMyThread.Execute;

begin

while true do form1.L_TEdit11.MoveShow;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

MyThread1:=TMyThread.Create(false);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage('Welcome You!');

end;

end.

该程序在Delphi4.0 for win95 下编译运行通过。

EMC 叶成辉:软件定义数据中心实现统一、开放的管理 百度云主任架构师 侯震宇:云终端开启数字生活 中国工程院院士 倪光南:中国云计算在全世界份额远超3% 信息图:未来的企业移动培训应用与技术 “2013年度中国优秀开源项目征集”活动最后三天 为什么开发者倾向于使用杂乱无章的免费工具 EMC合作伙伴销售经理杜术清:实现云的三种途径 开发者想走向海外:你融入老外的圈子了吗? 前微软工程师:美国监控和直接访问服务器?这不太可能 代码、TDD速查表 如何选择前端架构:服务器端HTML vs. JS部件 vs.单页Web应用 世界上最高深的Android特洛伊病毒 招聘iOS开发,老板必问的5个问题 护航科技吴伟湘:IT离线安全体检服务将带来颠覆 百度王继平:移动互联网时代云平台思路 “第八届开源中国开源世界高峰论坛”火热开启 微软发布SQL Server 2014预览版,展示内存数据库技术 帮助软件开发者提高效率的10个小窍门 我想做个程序员:Technovation Challenge圆女孩编程梦想 未来我们开发的Google Glass应用将会是什么样? 独家:前RIM大中华区总经理刘征宇,加入Appconomy 用一个API搞定一切 Segment.io为移动开发者提供便利的分析数据分发服务 TIOBE 6月编程语言排行榜:JavaScript回归前十 《Kingdom Rush Frontiers》上线后 迅速抢占27个国家游戏榜首 移动周报:85后程序员,iOS开源项目,细数7天大事件! Instagram:从Redis到Cassandra 成本节省1/4 乐元素CTO凌聪访谈:游戏引擎技术选型之王道 iOS 7的新设计并非止于外表 WWDC 2013大会10大启示:正向开发者支付大量现金 云计算大会微软专场成功举办 Windows Azure公众预览版上线 IBM全球大裁员 在美国裁员已经开始 不是水贴:请求帮助,有上海师范大学的请进 紧急!那位有clearcase winnt 4.2 的注册码,高分相送!!!!! 论坛的表格要在注意什么?《我是个菜》 大家帮忙介绍一本书 帮帮我怎么把系统还原占用的空间还给我——老鸟们帮忙! 过滤问题:Query需要先选择一个表(通过ComboBox)然后从2个Edit内输入两个条件 关于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系统当前的硬件配置??求助!!!! 在线等呀 急急!!!!!!!!!!! 寻找一种白色的粉末,可能是有机物来的!1.这粉末能较好溶于水,在水中时会漂浮在水面(摸起来有软软粘粘的).2.冲水时有泡沫产生,但不多,PH值可能偏碱性(但不确定).3.本人猜测这可能是 但是一定要准确,别随便复制一段资料! NaHS 是什么酸的盐?咋读? 为什么冬瓜表面会有一层白色的粉末 1988年中共中央和国务院决定建立的经济特区 无级变速器是什么意思? 焊件超声波探伤需焊接48小时后吗? 1980年,中央和国务院决定在哪设置经济特区 分度头,49等分怎么分, 两个正电荷和一个负电荷之间的电场线两个正电荷紧挨着,在一个正电荷旁边不远处有一负电荷,三个电荷带电量相等,请问这三个电荷间的电场线如何画?望各位不吝赐教! 君子喻于义 小人喻于利是什么意思? 自动变速器和无级变速器的区别是什么?请教专家:自动挡车和无极变速车有什么区别?在驾驶手法上有什么区别吗?谢谢. 化学选择题,关于氧化还原反应的.在线等拜托各位了 3Q 雅阁玻璃水能加几升雅阁车玻璃水能加几升,买几升的玻璃水比较适用. 什么是无级变速器? FeS+HNO3反应会生成S沉淀吗?生成物是什么?(正确式子加配平) 含最高价元素的化合物,一定具有强氧化性吗? 有水解程度达50%以上的盐吗? 为什么说电子发生了转移?要理由! 硝酸钾的钾是氧化钾 13,14,15,16题, 用5个正方形拼搭而成的物体,从正面看到的是“竖着的两个正方形”,有几种不同的搭法?(画图) 电场线始于正电荷,止于负电荷……电场线始于正电荷,止于负电荷.是单纯只方向问题,还是真的事实.比如一个正电荷被负电荷所组成的球面围住了.那么这个正电荷的电场能不能影响到负电荷 15 16 17题, "碘酸钾"是不是"碘"? 为什么电场线总是始于正电荷,终止于负电荷?请说明理由 我有标答,要的是思路或过程,例四我有标答,要的是思路或过程, 例四 高一化学氧化还原反应一节!含氮废水进入水体对环境造成的污染越来越严重,某课外兴趣小组先测定某废水中含硝酸根离子的离子浓度是3*10的负四次方摩尔每升,而后用金属铝将硝酸根还原为 碘伏可以和酒精掺在一起吗记得在医院打针医生会在皮肤上涂碘酒,那么碘酒是不是究竟和碘伏的混合物?还是有专门的碘酒? 请问不同品牌的玻璃水能混用吗? 在处理的废水过程中为什么突然会变成黄色 硝酸钾含100mg氮的意思是?怎么计算? 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=_____. 印染废水中的黄色怎样去除?我正在做一个污水处理系统,现在的情况是COD已经到了60左右,但是色度还得100多,水呈那种淡黄色,原水是印染废水和发电厂的水,COD1200左右,颜色有时是蓝的,有时是 任何一个碳原子都只连1个氢原子和3个碳原子这是什么有机物 1:如果a 科学兴趣小组在调查一化工厂时,发现有个车间排出的废水澄清透明,呈黄色.为测定该废水中所含的物质,他们进行如下实验(假设能发生的反应均恰好完全反应):(1)用pH试纸测试,测得pH 我的世界最新版本是多少?我看到有1.8的,不知道是不是最新的,还有我看视频上有的版本材料做得略微好看些是怎么回事?小地图是怎么来的? A+B=15 B+C=16 A+C=17ABC各=几 初三化学兴趣小组在调查一化工厂是,发现有个车间排出的废水澄清透明呈蓝色兴趣小组在调查一化工厂是,发现有个车间排出的废水澄清透明呈蓝色为测定该废水中所含的物质,他们进行如下 BASO3是不是沉淀物 A÷B÷C=6,A÷B-C=15,A-B=17,则A+B+C=多少,A×B×C=多少2009年初八前一定要回答出来! 某校化学兴趣小组对附近一化工厂排出的污水进行监测.发现污水中含某些金属离子对水质和环境造成了严重污染.他们曾对该厂排出的污水取样、过滤,对滤液进行了多次检测,其中有三次检测 solidworks钣金零件中要焊接一根管子,管子是焊接在板材中的,不是焊接在表面,想知道3维展开图怎么画? 什么是煤沥青 玉米芽怎么生 solidworks焊件库怎么没有h型钢 煤沥青最近有什么动态? 怎样做玉米芽率 黑洞和白洞是不是物质 煤沥青的主要用途 外伤用碘伏好还是酒精外伤口消毒用哪个好? 一辆汽车从甲地开往乙地,已经行了120千米,相当于全程的60%.这辆车离乙地有多少千米? 山西省煤沥青价格是多少?有谁知道山西最近在中温沥青价格行情是怎样的? 皮带是什么带动 www.vkeke.com为什么打不开了 NAHS分解成什么 材料一中涉及的通商口岸与经济特区在分布上有何相似之处 请问BASO3可以怎样制得我不知道BASO3是什么反应的产物.这种沉淀怎么来的啊 NaHS什么情况下结晶? 男子强奸亲生女儿长达10年获刑7年日本福岛外海6.8级强震 或有海啸 俄罗斯法律规定亲友要对恐怖分子行为担金华15岁少女被表外公性侵多次 因恐日本本州东岸远海附近发生7.3级左右日本东北地区发生6.8级地震上海居民沈勇死亡 官方:正在组织调查黎巴嫩北部教派冲突伤亡人数升至50多联合国人权理事会工作组通过审查中国人意大利媒体称英美合作监控意通讯 政府白俄罗斯总统提议格鲁吉亚重返独联体遭马达加斯加总统选举平稳结束郝柏村:抗日战争的胜利属于整个中华民马尼拉市长拟为人质事件筹集2000万第九届两岸经贸文化论坛今举行 为交流明星进入考题屡见不鲜 “杨幂题”引争赵本山亮相春晚节目一审 冯小刚今答网伦敦股市《金融时报》100种股票平均土耳其与伊拉克外长表示将加强两国关系31省区市9月CPI涨幅出炉 物价“西共体轮值主席呼吁国际社会支持西共体落实签约项目333个对接推进会签约1最爱凉菜折耳根是有毒的美味?昨日阵雨突袭成都,1小时内,望江公园留守儿童有了代理父母安委办部署排查汛期安全隐患低价代购为诈骗戛纳电影节今日开幕 奖杯不在买卖在欠债数千万台湾老板弃厂逃匿揭秘神奇牌技培训背后猫腻茂业百货春熙店改装出清成都排水管疏掏基本完成终于“脱单”白犀牛迎亲团今日赴渝女老板被判无期档案造假是用人问题重要源头部分环境项目风险被传播放大数额巨大一老板涉嫌吸储4.7亿受审发挥调解优势化解医患纠纷宁波口岸维稳护航亚信峰会30万平安志愿者投身亚信峰会安保发改委支持创投企业发行债券全国游泳冠军赛孙杨夺金
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘