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

做动态显示的控件-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 下编译运行通过。

Salesforce.com和Oracle在云合作上达成长期协议 即将到来的数据中心僵尸末日,谁能成为最后的幸存者?! Andorid APK反逆向解决方案:梆梆加固原理探寻 科技拥抱设计:体验设计如何创新? Rails 4.0正式发布 命途多舛的webOS,两度易主,生生死死多少回 Citrix全面开源XenServer 为了三十亿人的网络幸福:Google投资O3b发射网络卫星 Windows 8.1中IE 11开始支持WebGL和SPDY/3 微软Build 2013开发者大会:盘点Windows 8.1的15个重大更新 瞧!这是摩托罗拉移动新Logo,你有什么感觉? 专访UEditor创始人战毅:打造最佳的用户编辑体验 Eclipse 4.3 正式版发布 代号Kepler 为兴趣而生 七大编程挑战项目,你敢来吗? iOS 7辅助功能:左右摇头控制iOS设备 挑战传统关系型数据库:Facebook图形数据库TAO揭秘 揭秘“棱镜计划”幕后的技术 你更新了吗?Visual Studio 2013 Preview和.NET 4.5.1同时发布 你主要使用什么编程语言? 跨平台游戏开发工具App Game Kit或将新增更多强悍功能 移动应用推广的那些事儿:应用发现篇 DDoS攻击也能成为一种云计算服务 Netflix开源Hadoop集群调度工具:日处理近万作业、上千TB数据 传谷歌正开发自己的视频游戏主机和智能手表 AMD APU战略转型:全民四核,发力“云+端” 富士康自主研发智能手表 惹苹果发来订单 开发者眼中的iOS 7:重设计过程没想象中那么糟 游戏引擎Unity宣布免费支持Windows Phone 8及Xbox One 蝉游记王益善专访:7人小团队实现App 30万下载量 去除IE 10广告的两种方法 直接拿来用!最火前端开源项目(二) java 何种字体是国际字体不存在不同语言操作系统解码不兼容问题 C#的初学者(应用DataGrid)-->用Microsft的配置数据适配器Wizard创建和配置数据集的问题,它会自动为你加上一些你不要的列 高价求购。。。急。。。 浮点数的转换成字符串?? (在线等待) 100分!! Oracle字符集的问题!高分求解! 关于asp.net中如何控制Response.Write()输出的问题! 高手指点,怎样在程序运行时修改DataWindow的Sql语句? 如何在使用Quick report的程序中设置打印机,选择打印机 寻求字符串比较算法,详情请到里面! 我在一个类中调用别外一个类的public成员函数,产生的错误是什么意思? 有哪位高人指点一下,散分了! 能否使用javascript检测客户端是否安装了某个软件? 水园公务帖[2003.03.04—2003.03.09] 请教,如何循环的查找到一个父窗口?出错代码如下,在关闭时出错。原因出在我的相互赋值上面 我想问一下,大家所在的公司软件项目提成都是怎么分配的? 在photoshop里存入什么格式,可以在Coreldraw里,做了drop shodow功能的图象显现出来??? 如何运行JBUILDER编译的程序 zju1222的数据是不是有错误呀? 哪里有2002年高程试题 关于控件 请教:在SQL SERVER2000里面怎样让值显示为******? B/S下如何使用.css?--答对加分,谢谢 200分,ASP.NET如何访问COM+组件?????? JBuider 6 的问题?-->小问题,用过的进来看看!!! 感情问题,请各位帮帮我!!!!!! (校园网)门户网站的设计与组建 关于如何动态分配内存的一个问题,请指教(50分) 在winForm下可以用session 吗? 跟网页下的有什么不同呢? 用orcle搭建一个客户服务器平台,该如何搭建?(通过vc的应用程序在客户端访问)--都有分给的. 初学websnanp,请教几个小问题? 问一个基础问题? 怎样在MDI框架下,显示一个CFORMVIEW类的子窗口? AUTOCAD图形打印驱动程序设计 AUTOCAD图形打印驱动程序设计 情帮忙(50分) 一个水晶报表的问题 有人真正使用过XML开发程序么? 我想买书 pb7.0哪里可以下载? AUTOCAD图形打印驱动程序设计 贺猪猪成星,散分给水友,天下皆欢颜!!! WinRAR的压缩密码怎么取消啊?快,快,急需!!! 没有权限打开names.nsf的问题? 复选框的问题,在线等待!!! 没有权限打开names.nsf的问题? IE浏览器显示的字体不是默认的,变成了空心字体。如何改成系统默认的字体?(win98+IE5.0) 寻找高手 关于协议的问题 求助!能把一个字段内容分解的函数? Servlet问题?(急等,立结) oleconnection 支不支持sybase的连接,不通过odbc如何连接Sybase高手请进!急啊!!! 关于return的问题 物体在斜面上匀速上升时,摩擦力方向匀速下降时呢初中斜面时的 公义一词怎么解释 为什么有的纸遇到水蒸气会变黑 物体在斜面传送带上的摩擦力的方向用皮带运输机将物体从低处运到高处,当物体随皮带匀速运动时,物体所受的磨擦力的方向与物体的运动方向是相同还是相反?(是不是有两种情况:一是皮 义字字形解释 铵态氮肥与草木灰不能混合施用的原因‘草木灰K2CO3是碱性的,会水解生成OH-,会与氮肥NH4HCO3中的NH4+结合生成NH3和H2O.那么为什么就是NH4+ +OH- = NH3 + H2O而不是NH4+ + OH- = NH4OH(可逆) 在中和反应反应热实验中,如图是为什么 廉义词的解释 谁能帮我讲解一下乙肝病毒DNA测定结果~HBV-DNA 结果是 恐龙是在冰河期前产生的吗? 燃料是不是只要氧气和火种就可以燃烧?不用其他的气体吗? 乙肝病毒DNA定量检测测定值1.87E+7 “冰河期”是什么意思呢?为什么叫“冰河期”?在此先感谢回答者. 哪种可燃物不能在氧气中燃烧,能在其他气体中燃烧 共聚甲醛(POM)磨成的粉末如果进入到胃里会被胃酸分解成甲醛吗?家里某知名品牌的搅拌机的轴心是由共聚甲醛(POM)做成的,使用过程中竟然因磨损产生黑色的油油的液体并进入到搅拌的 谁知道有关冰河期的要科学,完整 物体受到垂直斜面向上和向下的力,为什么所受摩擦力的大小不变?垂直斜面向上和向下的力可以分别分解为沿竖直方向向上和向下的力,那不就是等于减小了和增加了重力吗?那它们的合力沿斜 聚甲醛是通过甲醛加聚得到的么? 对于植物分生区细胞而言,在细胞间期,叶绿体中的DNA复制吗? NaOH和Ba(OH)2哪个吸收CO2的效果好?KOH呢? 聚甲醛制品是否含有甲醛聚甲醛在成型过程中会有部分甲醛单体析出,甲醛单体会不会残留在最后制品当中.产品可不可以做到无甲醛 洋葱根尖分生区细胞中的dna主要存在?中 《我与地坛》中为什么“我”会认为死是一件不必急于求成的事,死是一个必然会降临的节日? 玻璃密封罐新买的想放些糖果,但瓶子里有一种很难味的味道,怎么才能除掉呢. P9 (9 正常情况下,不发生DNA复制的细胞是( ) A 分裂的受精卵 B 癌细胞 C 根尖分生区细胞 D 成熟表皮细 国庆节这天国家会做那些事 E处人口稀少的原因是(A) A空气稀薄 B气候寒冷 C环境湿热 D天气干热请问A为什么对,C为什么错? 7.2v电池供3.6vLED灯需用多大电阻? 一物体静止在斜面上有摩擦力吗? 亲人过世的第一年是清明前去扫墓,还是清明节那天去扫墓?民俗上有什么说法没有?谁能给个答案. 一物体放在斜面上(摩擦力问题)一物体放在斜面上,用平行于斜面向上的力F1=12N刚好匀速向上运动,用平行于斜面向下的力F2=2N刚好匀速向上运动,则所受摩擦力为多少? 可逆反应的热化学方程式,反应热是如何计算的,如果说是按完全反应,那么此选项是对是错? 形容人不爱说话次 被挡在粗糙斜面上的物体受摩擦力吗比如有一个u小于tan&的斜面上固定一个垂直木板,小球被其挡着静止在斜面上,小球受到静摩擦力吗?凭感觉好像没有,一道大题里也默认不没有,但是若f很大, 植物的茎有哪些类型? 如图所示,将物体匀速拉到斜面顶部,试推导斜面上物体受到的摩擦力大小为f=F(1-η) 冰河期丛什么时候开始 关于DNA提取问题世界上最早能够从骨头里提取DNA的是哪个国家,哪一年?求教! 高中电离平衡问题 氨水和盐酸混合...氨水和盐酸混合氨水过量 还要考虑氨根离子水解么 英语翻译:遵守 DNA提取的问题DNA提取时,加入蛋白酶K,SDS对蛋白酶K本身有没有影响,因为蛋白酶K也是蛋白啊, 申屠蟠重节义 翻译 速求 新手 没多少分 小冰河期来临了吗? DNA提取的相关问题请问各位仁兄:DNA提取过程中用到的试剂,哪些是需要现用现配的? 申屠蟠中节义 的 翻译 玉米根尖含有DNA的结构是? 正常情况下,不发生DNA复制的是癌细胞,还是成熟的表皮细胞? “君子义以为质,得义则重,失义则轻,由义为荣,背义为辱”是什么意思?快~~~ 中频炉电源电缆可以并联使用吗 富而可求也,虽执鞭之士,吾亦为之.如不可求,从吾所好.富如何理解?论语十则里的.其争议颇多. 90号沥青搁时间久了都有那些变化? 下一次冰河期大约什么时候到来呢 如何理解:“士不可不弘毅,任重而道远” 与有丝分裂有关的细胞器, 用大功率激光二极管做切割机电源行吗? “传曰‘刑不上大夫’此言士节不可不勉励也”是什么意思 有丝分裂中细胞器是如何分配的 乙醇的电子式 解释的的进义词 如何由丁醇制备2 丁醇? 疑百度帮新客户侵权 百度老客户状告百美国国务卿克里促埃及政府勿延长全国紧局势动荡民众对政治改革灰心 埃及再现缅甸发生沉船事故 载有70人船只仅8民调显示超3/4德国人认为美国国安局美国国务卿克里促埃及政府勿延长全国紧局势动荡民众对政治改革灰心 埃及再现南华早报:“监听事件”削弱美国软实力外媒:十八届三中全会或为“革命性”改美研发新型间谍机 可一小时内到达全球地方接力大部门制改革 简政放权与加强未来中国3.9亿农民将市民化 城市越国务院将专项督查最低生活保障政策落实美国国务卿克里促埃及政府勿延长全国紧最新消息:孙杨已经被带离下城交警大队未来中国3.9亿农民将市民化 城市越e融在线:“三大亮点”开启个人网上信杭州开元中学今年101岁 杭城百岁学国务院将专项督查最低生活保障政策落实浙大教授昨演示\"隐身衣\" 鱼缸还\"中学毕业生清华成长奖\"颁发 浙《奇葩说》班底再聚《黑白星球》新生军训增应急救护内容寻当代词汇出处 悟千年典籍智慧寻当代词汇出处 悟千年典籍智慧不断深化金融领域各项改革T3航站楼再现“韩熙载夜宴”日在野党呼吁阻止安倍政治“暴走”农林专业生走歪道欲刺杀特朗普 英国男子被捕300余架无人机亮相中关村谁能治愈“英国病人”?谁能治愈“英国病人”?牵“意”发而动全身威尔士黑马成色足特战队员魔鬼训练特战队员魔鬼训练猴年马月,大圣归来威尔士黑马成色足猴年马月,大圣归来高校学生比拼球技牵“意”发而动全身
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘