شرح ضبط مكان الفورم فوق الساعة تماماً

aymen1992

المدير العام
طاقم الإدارة
إنضم
3 أغسطس 2020
المشاركات
98
النقاط
8
الجنس
ذكر
الاقامة
الجزائر-سطيف




السلام عليكم و رحمة الله .. أردت أن أفيدكم اليوم بكود في الدلفي كود جميل جداً



تجعل من خلاله الفورم يضهر فوق الساعة تماماً مثل البرامج الإحترافية



.. مذا ستستفيد من ضهور الفورم في هذا المكان ؟



قد تستعمل يوماً التنبيه في برامجك المكان المعتاد لضهور رسالة التنبيه هذه هو فوق الساعة مثل بقية البرامج



مثلاً عند الأفست لما يتم تحديث البرنامج تضهر رسالة في هذا المكان و أغلب البرامج تفعل هذا



و هذه صورة لأحد برامجي إستعملت فيها تنبيه



http://i.imgur.com/bnwpu.png




رابط الصورة لمشاهدتها بشكل أفضل



http://i.imgur.com/AhG7p.png




أرأيتم .. التنبيه أصبح إحترافي بكل معنى الكلمة



الآن مع الشيئ البرمجي .. في حدث FormCreate نضع الكود التالي



http://i.imgur.com/G6wks.png




-----------------------------------------------------------------------------------------





procedure TForm1.FormCreate(Sender: TObject);

var

R: TRect;

Hauteur: Byte;

begin

SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);

Hauteur := Screen.Height - R.Bottom;

Left := Screen.Width - Width;

Top := Screen.Height - Height - Hauteur;

end;
 
أعلى