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

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

小米手机-HAXLR8on:创客32小时全纪实 图文:看苹果下一代iPhone细节 能吸引你购买吗? [开源推荐]Intention.js:通过HTML进行响应式开发 Android副总裁Hugo Barra将加盟小米 三星将召开首届开发者大会 推新SDK和S Pen 15个步骤创立技术公司,并收获千万用户(三) H3Cloud:为企业提供最优化IaaS方案 VMware、红帽对决云管理平台 大数据辅助决策,构建智慧城市 所见即所得:四款免编程移动游戏开发引擎推荐 PaaS乱局:Container的新机遇 IDC再度下调2013年全球PC销量预期 平板电脑中枪 Waze联合创始人做FeeX 用众包方式增加银行服务透明度 Ripple CTO Stefan Thomas:Bitcoin与未来支付应用开发 第二届Coding For Fun编程马拉松实时快报→→ 数字化你的脸:14个智能眼镜开发平台 Unite2013开发者大会:Unity新增多项重磅革新 微软大中华区副总裁谢恩伟:微软云+端应用模型前瞻 移动周报:从硬件马拉松到Barra加盟,本周小米很火 小而美的Diffbot:将Web页面转化为数据库,获多位科技大佬注资 “叙利亚电子军”对美国多家网站发起“电子制裁” 麻省理工TR35之IT界年轻有为创新者(上) Linux用户须知的16款实用软件 新平台,新惊喜:记第二届Coding For Fun 创业建议泛滥成灾 实用的不多 腾讯云俱乐部北京站:知名手游商畅谈云时代开发运营策略 LG再战平板市场:将推出8.3英寸平板G Pad 编程语言与工具专题论坛:各类编程语言使用体会分享 淘宝、腾讯、豆瓣、支付宝、网易专家热议大数据分析与BI实战 “创新或灭亡”:Google的80/20只是转移视线的说辞罢了 自动化编排,配合SDN的iMC V7更加开放 有没有谁有D6光盘,刻张给我 到底要怎样学 新手请教问题 我的安装老是不能成功,那一位大虾能告诉我,谢了 各位大虾,谁能给我提供,匿名发送邮件的程序代码啊。。。。 那位打下知道有什么针对BMP图像的压缩算法? 怎样使WAV播放的幅度表达出来?象WINDOWs的录音机显示一致? 窗口的问题(稍后加分,100分) 大家是如何解决数据库平台无关性的问题的? 呦,阿紫,你真的改名啦,红袖添香夜读书的小乖乖,太长了,你还当斑竹吗? vb开发进程?Hook技术? 所谓的基础的是什么 识别上网状态问题,请教各位大虾。 再问:请问可以在applet中使用MenuBar吗?(昨天的已经给分了) 统计一下win2000下可以玩的游戏 *.chm文件能作在线帮助吗?在窗体的helpfile、和helpcontext如何设置??? 如何根据列名用object来取出字段,急!!!! 关于箭头在数据窗口移动的问题? 再问个菜鸟问题,showmodaldialog的title怎样控制 javascript中如何取整? ALT和MFC的区别是什么?? 试用DELPHI6,BUG太多了! 我是新手,请问在delphi5中如何建库(orcle和sybase)? 问一个比较弱智的问题 js文件里如何使用另一个js文件里的函数30? 哪位大虾知道可以在哪里下载mpeg-1的codec,谁先告诉有效地址谁先得分!(不给分是小狗!) 可能很菜的问题,送分的问题!! 一个关于CDaoTableDefInfo的问题 ado的问题??求救!!!高分!!! 有关代码重用的问题,对Form的继承。 一个关于CString.Format的问题 学习编程时学图算法怎么学好? 一个很简单的CREATE TABLE语句为什么出错呢?向大家请教! jbuilder5运行需要最低配置 ,傻傻的问 Delphi6的盗版已经到了@_@ 喂,为什么我提问只能给最多37分,原先可比这要多的多 一个关于派生类的问题 关于页面关闭的问题 用new JTalbe(10, 20)创建了一个table,如何设置该table列(column)的宽度 请教一个关于用VC6开发outlook\exchange的问题。急!急! 时间服务器 请问一下,用DBM,如果用户注册的数量多了以后,程序的速度很一般的文本速度比较哪个快 纯数学问题:如何求模逆元? VB中实现进程间通信的方法?VB中的CallWindowProc的用法?VB中如何发送自定义的消息? 请问哪里能免费下载BCB5?下载多长时间没有关系,只要能够正确使用就可以了。 怎样得知CListCtrl中当前选项? 我想从WINME中自带的一个驱动程序提取出来在WIN97中安装,请问应如何做? 菜问题(2) 请教:为何数据库数据无法在网页上显示? CEditView 一定要override onChange function(ON_CONTROL_REFLECT(EN_CHANGE, OnChange))????;否则input 时不我待会错??? 请教:不通过页面,用VB如何得知来访者的IP? 实验小学六年级男生与女生的人数的比为7:5,已知男生比女生多40人,男女生各多少人 成功中学七年级(1)、(2)、(3)班向希望小学共捐书385本,2班捐书的本书是1班的0.75倍,一班与3班的捐书成功中学7年级1、2、3班向希望小学那个捐书385本,2班捐书的本书是1班的0.75倍,一班与3 父亲的年龄是聪聪的9倍,母亲的年龄是聪聪的7.5倍,父亲弊母亲的6岁.聪聪今年几 实验小学的女生人数比全校总人数的2/5多256人女生人数是男生的7/8求该校一共多少人? 成功中学7年级1、2、3班向希望小学那个捐书385本,2班捐书的本书是1班的0.75倍,一班与3班的捐书之比为6:7数学老师正在黑板上抄上述题目,还没抄完,校长便叫他去接个电话,现在请你替老师把未 下面图(1)是某市实验小学四五六年级在希望工程自愿捐款活动中学生捐款情况统计图,图(2)是该小学四五六年级分布图,已知三个年级共有学生950人,图(1):人均捐款数每元:四年级5元; 实验小学六年级的女生人数占全年级的48.75%,如果男生人数比女生人数多12人,共有多少人? 聪聪明明从家相对出发,聪聪的速度15分之1千米分,明明速度是12分之1千米分,15分钟后他们两家相距多少 . 四年级同学为"希望工程"捐款,1班,2班,3班平均每班捐25元,2班,3班,4班平均每班捐28元,已知一班捐款26元,求4班捐款多少元 实验小学六年级的男生比女生多20人,女生人数比男生少五分之一.六年级男生多少人 聪聪行走的路程比明明多三分之二,明明用的时间比聪聪多五分之二.求聪聪与明明的速度比. 小学二年级四个班的同学为希望工程捐款,一班,二班,三班平均每班捐款24元,二班,三班,四班,平均每班捐款26元,已知一班捐款22元,那么四班捐款多少元?用多元次方程解~ 实验小学六年级的女生占全年级的5分之2,男生人数比女生人数多12人,那么实验小学六年级人数共有多少人? 从学校走到少年宫,聪聪用了10分钟,明明用了8分钟,聪聪和明明的速度比是多少完整一点,急 为了过一个有意义的“六、一”儿童借,实验小学发起了向某希望小学捐赠图书的活动.在活动中,五年级一班捐赠图书100册,五年级二班捐赠图书180册,二班的人数是一班人数的1.2倍,二班平均没 实验小学六年级共有学生180人,其中,女生人数是男生的十一分之九.六年级男生和女生各有多少人? 从学校走到少年宫聪聪用了10分钟明明用了18分钟聪聪和明明的速度比是多少?打错了!明明用了8分钟 实验小学向“希望小学”捐赠一批图书,其中文艺书占40%,连环画占1/4,余下的 840册是科普读物.实验小学共捐图书多少册? 实验小学六年级有学生180人,其中女生是男生的9/11,.六年级男生和女生各有多少人?我看别人的时180/(1+9/11)=99人,为什么用1+9/11? 从学校走到少年宫.聪聪用了10分钟.明明用了8分钟.聪聪和明明的速度比是多少? 新化小学为希望小学捐款,六年级捐2448元,比五年级多20%, 光明小学一年级有学生380人,男生人数的1/5比女生人数的1/6多10人.一年级男女生各多少人? 星期天小红去图书馆借书,原来打算每分钟走50米,但为了提早到10分钟她把速度加快到了每分钟70米,问小红家离图书馆有多远?(要要文字解释 学校组织为希望工程捐款活动,五,六年级捐款数的比是3:5.已知六年级比五年级多捐了400元,两个年级各捐少元? 光明小学男女人数的比是4:5,女生比男生多()%,已知全校学生人数是90人,男生有()人. 图书馆距聪聪家1950米.一天,聪聪从家里出发,步行去图书馆,开始的步行速度为60米|分,走了十五分钟后,步行速度改为|分.聪聪还要都久才能到达?请例方程. 五年级共有72名学生向希望工程捐款零花钱,捐的总数刚好是72的倍数,而记账时有两个数字不清楚:( )52.7( )元 光明小学六年级有学生二百二十人六年级比四年级多百分之十四年级有学生多少人 某小学有学生975人,全校男生人数是六年级学生人数的4倍少23人,全校女生人数是六年级学生人数的3倍多11人,问全校有男、女生各多少人?不能用方程. 聪聪骑自行车从家去相距5千米的图书馆借书,从给的统计图中可以看出他去时用的时间是返回所用时间的()%去时骑车的平均速度与返回时骑车的平均速度的最见证书比是(),比值是多少? 实验小学五年级有学生152人,现在要选出男生人数的11分之1和女生5人,到国际数学家大会与专家见面,学校按照上述要求选出若干名代表后,剩下的男,女生人数相等. 光明小学六年级学生占全校的六分之一,六年级男女比是6:5,男生比女生多23人全校有多少人 聪聪家和明明家合用一个水龙头,聪聪家有4口人,明明家有5口人,上月两家共用10.8吨.按每吨水2.35元计算,两家各应分摊多少元水费? 五年级原有学生420人,其中女生占七分之三,后来转进女生若干人,这时女生占总人数的十一分之五,转进多少名女生? 4、六年级一班有男生23人,女生22人,全班学生占六年级学生总数的5/31. 聪聪家 650米 少年宫 820 明明家 聪聪家和明明家距离多少米? 育才小学五年级有260人,六年级有300人. 某校五年级共有学生152人,选出男生的1/11和5名女生参加数学竞赛,剩下的男女人数正好相等.这个学校五年级男、女各有多少人?列方程解 明明家离书店有800米,聪聪家离书店比明明家近1/8,求明明家与聪聪家的距离.(通过不同的位置.方向思考) 六年级参加植树活动有300人,比五年级参加植树的人数多60人,六年级植树人数比五年级多百分之几列式子, 设计一条捐款捐物捐书的宣传语 聪聪家 书店相距800米,明明家比聪聪家离书店近8分之1,聪聪家和明明两家距离是多少米? 六年级共有学生300人,女生人数的十分之三是男生人数的五分之一,六年级有男生()人 六年级共捐书540本六年级1班比六年级2班2倍少60本六年级1班和六年级2班各多少本 红红家和聪聪家分别在学校的南\北两个方向上放学后他们同时走出校门各自回家,红红每分钟走80米,聪聪与红红速度比是5:4,10分钟后两个人同时到家.红红家和聪聪家相距多少米? 某小学五、六年级共有学生930人,已知五年级人数的四分之三与六年级人数五分之四相等.五、六年级各多少算式 甲同学捐书的数量是已同学的5/21,丙同学捐书的数量是甲同学的4/5,三名同学捐书总数是310本已同学捐书?求已同学捐多少本?最好有算式! 打同一份稿件,聪聪要用九分之四小时,明明要用35分钟,丽丽要用十五分之七,他们三个人中,谁的打字速度快.(写出算式) 五、六年级共有930人,已知五年级人数的4分之3与六年级人数的5分之4相等,五六各有多少人? 某小学有1000名学生,为了支援南方灾区,纷纷捐书,有一半男生每人捐9本,另一半男生每人捐5本书;一半女生每人捐了8本书,另一半女生每人捐了6本书.全校捐了多少本书? 父亲的年龄是聪聪年龄的9倍,母亲的年龄是聪聪年龄的7.5倍,父亲比母亲大6岁.聪聪今年几岁呢?(列方程解答) 只列算式市实验小学六年级有学生250人,比五年级学生多50人. 正义路小学共有1000名学生,为支援“希望工程”.同学们纷纷捐书,有一半男生每人捐了9本书,另一半男生每人捐了5本书;一半女生每人捐了8本书,另一半女生每人捐了6本书.全校学生共捐了多 父亲的年龄是聪聪年龄的9倍,母亲的年龄是聪聪年龄的7.5倍,父亲比母亲大6岁.聪聪今年几岁? 实验小学六年级的学生参加了三类兴趣活动小组,其中科技组与美术组的人数比是5:4,美术组与数学组的人数比是3:2.已知科技组人数比美数术组和数学组人数的总和少15人.求共多少人? 育才小学六年级为希望工程捐书,男生捐的本书是女生的5分之3,六年级一共捐了640本.男生和女生各捐了多少本 爸爸的年龄是聪聪的3倍,爸爸比聪聪大26岁,爸爸今年几岁?聪聪几岁?急 实验小学五年级女生的人数比全体人数的60%少5人,男学生人数比全体人数的7/20多16人.男女共多少人? 某校六年级三个班为希望工程捐书,一班捐了六年级捐书总数的4/11,二班捐了90册,三班捐的书是一、二班捐书的和的一半,六年级三个班共捐了多少册? 妈妈的年龄是聪聪的5倍.爸爸的年龄比妈妈大三岁.是聪聪的5.5倍、聪聪几岁?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn