Delphi中自制动态显示的控件

Delphi中自制动态显示的控件2010-10-24Delphi以其优秀的界面和简单的用法深受广大程序员的喜爱.笔者经过摸索,自制了一个具有动态显示特性的控件。只需在主程序中调用该控件的一个方法即可实现动态显示。

在动态显示的同时,为了不影响主程序做其他的事情,笔者采用了比较流行的线程技术。

一．方案

自制一个父类为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 要在同一个目录中（缺省为delphilib目录中。再单击Install Component. 选Into new package属性页，填上L_Edit.pas 的路径和文件名，并在该路径下新建L_Edit1.dpk 文件。之后一直单击OK即可。此时我们可以在Delphi 的工具栏Sample 一项中看到自己创建的图标。