Buscar por:

Efeito legal no caption do form

Código

Unit Unit1; 

interface 

uses 

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; 

type 

  TForm1 = class(TForm) 

  Timer1: TTimer; 

  procedure Timer1Timer(Sender: TObject); 

  procedure FormShow(Sender: TObject); 

  private 

  { Private declarations } 

  WGiro : Integer; 

  WMesage : String; 

  public 

  { Public declarations } 

  end; 

var 

  Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.Timer1Timer(Sender: TObject); 

begin 

 Form1.Caption := WMesage; 

 Case WGiro of 

  1: begin 

  if Length(WMesage)<= 1 then 

  begin 

  WMesage := ' W'; 

  WGiro := (WGiro + 1); 

  end; 

  WMesage := Copy(WMesage, 2,250); 

  end; 

  2: begin 

  if Length(WMesage)<= 2 then 

  begin 

  WMesage := ' I'; 

  WGiro := (WGiro + 1); 

  end; 

  WMesage := Copy(WMesage, 3,250); 

  end; 

  3: begin 

  if Length(WMesage)<= 3 then 

  begin 

  WMesage := ' L '; 

  WGiro := (WGiro + 1); 

  end; 

  WMesage := 'W' + Copy(WMesage, 4,250); 

  end; 

  4: begin 

  if Length(WMesage)<= 4 then 

  begin 

  WGiro := (WGiro + 1); 

  end; 

  WMesage := 'WI' + Copy(WMesage, 5,250); 

  end; 

  5: begin 

  if Length(WMesage)<= 5 then 

  begin 

  WGiro := 1; 

  end; 

  WMesage := 'WIL' + Copy(WMesage, 6,250); 

  end; 

 end; 

end; 

procedure TForm1.FormShow(Sender: TObject); 

begin 

 Timer1.Enabled := True; 

 WMesage := ' '; 

 WGiro := 1; 

end; 

end.