طريقة دلفي لتحقيق تأثير التدرج في نص النافذة والتلاشي

المثال الموصوف في هذه المقالة هو تأثير نص التدرج اللوني للنافذة الذي تم تنفيذه بواسطة Dlephi. يمكن أن يتغير النص باستمرار، ويتغير اللون من الفاتح إلى الداكن، ومن الواضح إلى غير الواضح، ويمكن ضبط وقت تدرج النص بنفسك في الكود . رمز التنفيذ الرئيسي هو كما يلي:

 وحدة Unit1؛ تستخدم واجهات Windows، والرسائل، وSysUtils، والمتغيرات، والفئات، والرسومات، وعناصر التحكم، والنماذج، ومربعات الحوار، وStdCtrls، وExtCtrls؛ اكتب TForm1 = class(TForm) Timer1: TTimer; { الإعلانات الخاصة } public { الإعلانات العامة } end;var Form1: TForm1;implementationvar r,g,b:integer;{$R *.dfm} الإجراء TForm1.Timer1Timer(Sender: TObject);begin if (r<=255) و(g<=255) و(b<=255) ثم ابدأ Label1.Font.Color:=RGB(r,g,b); // تغيير لون النص r:=r+1; ب:=ب+1; نهاية وإلا تبدأ ز:=0;