Delphi 中自做动态显示的控件

• 控件
• 显示
• 动态
• end
• begin
• procedure
• t

自做一个父类为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 下编译运行通过。