L'exemple décrit dans cet article est l'effet de texte dégradé de fenêtre implémenté par Dlephi. Le texte peut constamment changer et la couleur passe du clair au foncé, du clair au flou. Le temps du dégradé du texte peut être ajusté par vous-même dans le code. . Le code d'implémentation principal est le suivant :
unité Unit1 ; interface utilise Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls ; tapez TForm1 = class (TForm) Timer1 : TTimer ; procédure Timer1Timer (Expéditeur : TObject privé); { Déclarations privées } public { Déclarations publiques } end;var Form1 : TForm1;implementationvar r,g,b:integer;{$R *.dfm}procédure TForm1.Timer1Timer(Sender: TObject);begin if (r<=255) et (g<=255) et (b<=255) puis commencez Label1.Font.Color:=RGB(r,g,b); //Changer la couleur du texte r:=r+1; b:=b+1; fin sinon début r:=0; g:=0;