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

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

TIOBE 2012年12月编程语言排行榜:Objective-C冲刺卫冕年度语言 11月份浏览器市场份额 IE10已占据0.51% 亚洲高科技公司正在分享惠普、戴尔和IBM的云“午餐” Groupon创业启示:进军海外,请三思 天才之为责任:Unity CEO谈论Unity 4.0游戏引擎 中文版Evernote百宝箱上线:开发者海外推广新渠道 360产品被爆收集用户隐私 桌面安全路在何方 销售额达一万亿元 阿里巴巴成世界最大电商 共享软件海外营销策略与实战分析(武汉站)成功落幕 你未必知道的CSS故事:揭开leading的面纱 2013年 影响Web发展的5类API 《Warcraft是怎样炼成的》:多人对战、战争迷雾以及AI HBTC精彩回顾 Hadoop专家分享大数据技术工具与最佳实践 苹果iTV规格泄露:iOS应用开发的新蓝海 Facebook觊觎微信鼻祖WhatsApp,但谈不上收购 首款社交API应用 Facebook Messenger for Firefox正式上线! 共享软件海外营销策略与实战分析(沈阳站)成功落幕 移动之伤:为什么山寨游戏比原创更火? IBM在京发布PureData 主打数据交易处理、操作分析 Intel发布Hadoop免费版 全力拓展生态圈 突出图片搜索:微软向测试人员开放Socl社交搜索 豌豆荚创始人:和巨头竞争,我们拼产品和技术 “互联网女皇”报告解读:智能电视大趋势 苹果扩大其北卡罗莱纳州燃料电池发电场规模 Oracle回收站使用全攻略 微软这次很诚实:IE真的糟透了 Facebook进军短信业务,挑战微信鼻祖WhatsApp 从菜鸟到专家的五步编程语言学习法 亚马逊企业文化:从书贩到云服务巨头的催化剂 明年Google I/O大会日程敲定 或发Android“酸橙派”? 绝境求生,WebOS寄望Android 帮帮忙!神经网络 vb 中打印机如何检测? 假如用户正在使用别的软件,如何自动使我的程序获得焦点 批量转移数据 SQL 斑竹呀急,快帮帮我! 想用ADO连接internet上服务器中的database,怎么动态建立间接网上数据库的DSN? 我的Web站点为什么没有安全性? 请问那些捌角人小图片如何做呀? 我也要一份《全套国标软件设计文档》 好人们,谁也发给我一个吧! 如何得到对话框在桌面的位置 紧急求救!编译时的错误! 改变Edit控件后出现字符重叠显现如何解决? 关于DBASE,CLIPPER,FOXPRO,VFP的历史发展 请问那些捌角图片如何做呀? 谁会刻光盘!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! lazywolf(二代) 有没有提供几何图形模板的类(如正方形和圆形)? typedef DWORD (WINAPI *MYFUNC)(DWORD,DWORD);是定义函数指针吗?为什么这样定义呢? 如何创建vector数组!我这些不对static Vector report[8]=new Vector()[8];高手指点me:) 如何画一个透明的Rectangle VC中修改字体的问题 比你更急!ASP。NET中打开文件问题? HTTP POST QUESTION????? delphi中的pop3控件怎么取得带附件的邮件的正文呀? J2EE随带文档的中文版本哪里有下载??? chr 函数问题 弟兄们,我明天开始要回来了,回到这个阵线了 如何退出双重循环 帮兄弟一把,一个小问题! ADO的连接 高分求解,如何取得默认打印机支持的纸张类型? 用deamweaver ultradev 做的asp怎么修改可以与数据库连接?? 时间问题 ADO连接问题 如何设置串口的流量设置,?设置为无. 请问怎么给JTabPane上各个JPanel(如:JPanel1,JPanel2)使用setMnemonic() 找不到确切哪一天的记录? 各位高手,为什么我在用NMUDP发送数据时当接收端程序没有启动的时候总是提示Stream Write Error,是什么原因,怎么才能让这个错误提示不出现 《机械原理》课有感 大哥 怎么在网上查到这的硬盘是不是水货好像输一个序列号就可以是不是 有谁能提供计算机及应用专业的本科毕业论文,最好是数据库方面的? 注册crystal report 都需要哪些.dll呢 如何能够同时DownLoad多个文件,就像OutLook的文件添附功能? 从sql serevre 6.5 升级到 sql server 2000后 原先的中文字段为何是乱码?急! 怎样用select下拉菜单的双击事件实现页面的提交?? 圣诞节要到了,mm 的命令也到了,要我准备好money,大家帮我出出注意啊~~~~~~~~ 请教各位jsp高手 office2000英文版无法uninstall sorry,应该是如何检测一个按纽被单击 初学JAVE需要什么软件? 请教:计算机四级和程序员、高级程序员的难度比较! 铜合金的密度是多少啊? 为什么饮用含有钙离子镁离子含量高的硬水达不到补钙镁的效果而且是不正确的,喝硬水对身体有害吗? 黄金18k、24k的含义,含金量各是多少啊?多谢!有知道的没?麻烦解释透彻一点. 求铜合金的密度 一个带孔的铜球,体积为80立方厘米,质量为267g,若用它来盛水,最多能盛多少? 18K黄金中的含金量与其他稀有金属含量的比是3:1,现有一款20克的18K黄金首饰,其中含金多少克? 我们喝的水是硬水还是软水?是硬水对人体好还是软水好? 一个带孔的铜球,体积是80厘米的3次方,质量是267克,若用它盛水,至少能盛多少克 黄金的纯度通常用K来表示,24K金为纯金.则18K金中含金量为? 喝硬水里的氧气对人体有什么作用? 一个带孔的铁球,体积为80立方厘米,质量为267克,若用它装水,最多能装多少水? 二元一次方程组:18K金一般只含金75%的黄金,要熔制18K黄金400g需要含金72%和80%的合金多少克? 把5g食盐溶解在120g水中,所得溶液中溶质的质量分数是多少? 补钙的途径1.经常饮用钙离子含量高的硬水2.大量补充维生素D.为什么第一个不正确?说明理由. 使用硬水会给生活和生产带来许多麻烦,可以采用多种方法降低水的硬度.(过程)谢谢O(∩_∩)O使用硬水会给生活和生产带来许多麻烦,可以采用多种方法降低水的硬度.水的的硬度是以氧化钙 硬水长期饮用为何对身体不好? 用同样材质的铜制成两个零件.一个体积是15立方厘米,重133.5克.另一个体积是20立方厘米,重多少 18k金一般指含金为75%的黄金,要熔制18K金400g需要含金72%和80%的合金各为多少克? 2.把5g食盐溶解在120g水中,所得溶液中溶质的质量分数是多少?急!帮帮忙! 用同样材质的铜质制成的两个零件.一个体积15立方厘米,重133.5克.另一个体积20立方厘米,重多少克? 100g稀硫酸与200g质量分数为10%的氢氧化钠溶液完全反应 计算:100g稀硫酸中溶质硫酸的质量 有一金铜合金工艺品,体积为3立方分米,质量为37.1千克.求此工艺品中所含金的质量.(p金=19.3×10³千克/立方米,p铜=8.9×10³千克/立方米) 用同样材质的铜加工成两个零件.一个体积为15立方厘米,重133.5克 ; 另一个体积为20立方厘米,重多少千克 一枚镀金的奥运铜质奖牌,质量为17.06克,体积为1.8立方厘米,求这枚奖牌中铜和金质量分别是多少克 有一块体积为1.8立方分米的金铜合金,质量为20千克,问:含金百分比. 诉求答案 用同样材质的铜制成的两个零件.一个体积20立方厘米,重178;另一个体积26立方厘米,重多少克? 一枚镀金的通知奖牌,质量喂17.06g,体积为1.8cm³,求这枚奖牌中铜和金的质量分别是多少克.(p铜=8.9×10³kg/m³,p金=19.3×10³kg/m³)【要计算过程】 一件标称纯金的工艺品,其质量是100g,体积为6cm立方,他是否由纯金制成?(p金=19.3*1.立方kg/m立方) 有两个同样材质的零件,一个零件重1068克,体积是120立方厘米,另一个零件重756.5克,体积是多少立方厘米 完全中和80gNaoH溶液,需要质量分数25%的稀盐酸49g,求此NaoH溶液中溶质的质量分数? 金铜合金工艺品,体积为3dm3,质量为37.1KG.求所含金的质量?(密度金=19.3X1000千克每立方米)铜=8.9X1000千克每立方米 生活中的自来水是硬水还是软水? 一枚镀金的铜质奖牌,质量为17.06克,体积为1.8立方厘米,求奖牌种铜和金的质量而后体积 喝硬水为什么不能补钙? 含有____的水叫做硬水,含有____的水叫软水.鉴别硬水和软水的方法有____(有——现象的水叫软水)和____法(无——现象的水叫软水)鉴别硬水和软水的方法有_________,生活中有什么方法使硬水 一枚镀金的铜质奖牌,质量为17.06克,体积为1.8厘米3,求这枚奖牌中铜和金的质量分别是多少克.(ρ铜=8.9×103千克/米3,ρ金=19.3×103千克/米3)每一步怎么来的 都说明白. 硬水的钙镁离子对人有害还是能补钙? 有关水的性质硬水转化为软水的方法?——————(生活常用)————(实验室用)水电解是正极生成( )负极( )两者H :O 体积之比( ) 质量H:O( )2.从物质类别的角度看水属于 纯净水是软水还是硬水?人喝纯净水好还是喝矿泉水好?原因是什么? 什么是硬水?什么是软水?为什么硬水不好?喝硬水有什么危害? 某10%NaOH溶液,加热蒸发掉100克水后得到80ML20%的溶液,则该20%NaOH溶液的物质的量浓度为多少 全部中和10克氢氧化钠,用去25%的稀硫酸19.5克,求氢氧化钠中溶质的质量分数? 将80mlNaOH溶液倒入120ml的HCl中,所得溶液的pH为2,若选用NaOH溶液及HCl浓度相同,求其物质的量浓度说下理由,谢谢 两块合金,一块含金95%,另一块含金80%,将它们与2克纯金熔合得到含金90.6%的新合金25克,计算原来两块合金的重量. 完全中和40g氢氧化钠溶液用去质量分数为20%的稀硫酸49g求氢氧化钠溶液中溶质的质量分数 某含0.8gNaOH的NaOH溶液恰好与40mL某浓度的盐酸完全中和.则该盐酸中HCl的物质的量浓度为多少 两块金与铜的合金,一块含金量为百分之95,另一块含金百分之八十,这两块合金与两克纯金熔合后得到含金量为百分之八十六点四的新合金二十五克.求两块合金的重量 矿泉水是硬水还是软水?Who 能告诉ME! 长期饮用硬水会有什么危害? 配置一定物质的量浓度的NAOH标准溶液,用于测定未知浓度的HCL为什么“定容后,溶液页面最高点与刻度线处在同一水平面上”,会使所测HCL的浓度偏低? 两块合金,一块含金量为百分之95,另一块含金百分之八十,这两块合金与两克纯金融合得到含金百分之90.6的新合金25克,计算原来两块合金的重量用一元一次方程解呀 长期喝硬水对身体对什么危害,水该怎么处理来改变水质 一块合金中金和银的比是2:3,现在再加入6克银,共得合金36克,问新合金中金和银比是多少?算式 硬水会给生活和生产带来许多不便,生活中可以用什么方法降低它的硬度? 判断下列说法是否正确?为什么?在100g水中溶解20g食盐,所得食盐水中溶质的质量分数为20%.( )判断下列说法是否正确?在100g水中溶解20g食盐,所得食盐水中溶质的质量分数为20%.( ) (2)碳酸钙是一种廉价高钙补钙剂,虽然碳酸钙难溶于水,但服用后可转化为可溶性钙盐被人体吸收,其中的道理是(用化学方程式表示):__________________ .因此,碳酸钙在医疗上还可以用来治疗 . 纯金放在水里重量减轻十九分之一,纯银在水里重量减轻十分之一,合金重840克,放入水中轻48克,求含金量? 实验:用过滤法分离粗盐中难溶解杂质,为什么过滤时溶液在滤纸上不下漏 碳酸钙可以做补钙剂吗 含金量是金的体积占总体积的多少,还是它的质量占总质量的多少?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn