Delphi以其優(yōu)秀的界面和簡(jiǎn)單的用法深受廣大程序員的喜愛(ài).筆者經(jīng)過(guò)摸索,自做了一個(gè)具有動(dòng)態(tài)顯示特性的控件。只需在主程序中調(diào)用該控件的一個(gè)方法即可實(shí)現(xiàn)動(dòng)態(tài)顯示。在動(dòng)態(tài)顯示的同時(shí),為了不影響主程序做其他的事情,筆者采用了比較流行的線程技術(shù)。

  一． 方案

   自做一個(gè)父類(lèi)為T(mén)Edit的控件,應(yīng)該有一個(gè)Text屬性，能自由地輸入要?jiǎng)討B(tài)顯示的內(nèi)容; 并且有一個(gè)MoveShow方法，使的Text的內(nèi)容能動(dòng)態(tài)的顯示。在主程序中創(chuàng)建一個(gè)線程，啟動(dòng)線程時(shí)，調(diào)用該控件的MoveShow方法。


  二． 制作控件
   啟動(dòng)New Component,選Tedit為父類(lèi)，建立L_Tedit1類(lèi)，并創(chuàng)建L_edit.pas. 再編寫(xiě)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.
再保存該文件。
  啟動(dòng)Image Editor 創(chuàng)建L_Edit.dcr , 選New- >Bitmap，自己做一個(gè)圖標(biāo)，保存名為L(zhǎng)_TEDIT1(與新建的類(lèi)同名)。注意L_Edit.dcr 與L_Edit.pas 要在同一個(gè)目錄中（缺省為\delphi\lib目錄中。再單擊Install Component. 選Into new package屬性頁(yè)，填上L_Edit.pas 的路徑和文件名，并在該路徑下新建L_Edit1.dpk 文件。之后一直單擊OK即可。此時(shí)我們可以在Delphi 的工具欄Sample 一項(xiàng)中看到自己創(chuàng)建的圖標(biāo)。

   三． 編寫(xiě)主程序

  在主窗體Form1中放一自己創(chuàng)建的控件，在Text的屬性中填上要顯示的文字（中英文都可）。與該窗體對(duì)應(yīng)的L_unit1.pas內(nèi)容如下：

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.