给窗口标题加上打字效果 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
给标题加个打字效果
< 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
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |