24-02-2013, 07:59 PM
24-02-2013, 08:21 PM
لا علم هل الوقت والتاريخ في TLabel أم في TPanel أم ماذا ولكن يفترض أنه في TLabel
أدرج TTimer وقم بتعديل قيمة Intervale إلى 50 مثلا
وقم بالنقر المزدوج عليه واكتب في OnTimer مايلي:
label.left := label.left + 3
if label.left >= 100 then
label.left := 10;
حيث كل من القيمة 10 هي نقطة البدأ او الظهور و100 نقطة الاختفاء
طبعا قم بسحب Label إلى اقصى اليمين او اليسار وخزن قيمة Left
ثم اقصى اليسار او اليمن وخزن Left
لست أمام الحاسوب وإلا قمت بطرح مثال حي
أدرج TTimer وقم بتعديل قيمة Intervale إلى 50 مثلا
وقم بالنقر المزدوج عليه واكتب في OnTimer مايلي:
label.left := label.left + 3
if label.left >= 100 then
label.left := 10;
حيث كل من القيمة 10 هي نقطة البدأ او الظهور و100 نقطة الاختفاء
طبعا قم بسحب Label إلى اقصى اليمين او اليسار وخزن قيمة Left
ثم اقصى اليسار او اليمن وخزن Left
لست أمام الحاسوب وإلا قمت بطرح مثال حي
24-02-2013, 08:23 PM
يمكنك البحث عن مكونات تقوم بالغرض واكتب مثلا marquee label component for delphi
24-02-2013, 09:47 PM
شكرا لك اخي الفاظل لقد نجحت في عمل ذلك وهذا بفضلك
بارك الله فيك
بارك الله فيك