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