给标题加个打字效果 < class="code"> unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Title,Text1,Text2 :string; Step:integer; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); var nLen, nTag: Integer; begin Title := ''; Text1 := '标题打字效果示例'; Text2:= '欢迎光临 [Delphi K.Top讨论区]http://delphi.ktop.com.tw'; nTag:=Timer1.Tag; if nTag = 0 then nLen:=Length(Text1) else nLen:=Length(Text2); Step:=Step 1; if Step > nLen then begin Step:=0; Caption:=TITLE; if Timer1.Tag = 0 then Timer1.Tag:=1 else Timer1.Tag:=0; end else if nTag = 0 then Caption:=Title Copy(Text1,1,Step) else Caption:=Title Copy(Text2,1,Step); end; 附示例，初次发表，还请多多指点 ——行径窄处，留一步与人行——

附加檔案：58777_FlashTitle.rar