Das in diesem Artikel beschriebene Beispiel ist der von Dlephi implementierte Fensterverlaufstexteffekt. Der Text kann sich ständig ändern und die Farbe ändert sich von hell nach dunkel, von klar nach unscharf. Die Zeit des Textverlaufs kann im Code selbst angepasst werden . Der Hauptimplementierungscode lautet wie folgt:
Unit Unit1;Schnittstellen: Windows, Nachrichten, Grafiken, Steuerelemente, Formulare, StdCtrls, ExtCtrls;Typ TForm1 = Klasse(TForm) Timer1: TTimer; Label1: TLabel; Prozedur Timer1Timer(Sender: TObject); { Private Deklarationen } public { Öffentliche Deklarationen } end;var Form1: TForm1;implementationvar r,g,b:integer;{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);begin if (r<=255) und (g<=255) und (b<=255) dann beginne Label1.Font.Color:=RGB(r,g,b); //Ändere die Textfarbe r:=r+1; b:=b+1; end else begin r:=0; b:=0;end.