السلام عليكم و رحمة الله .. أردت أن أفيدكم اليوم بكود في الدلفي كود جميل جداً
تجعل من خلاله الفورم يضهر فوق الساعة تماماً مثل البرامج الإحترافية
.. مذا ستستفيد من ضهور الفورم في هذا المكان ؟
قد تستعمل يوماً التنبيه في برامجك المكان المعتاد لضهور رسالة التنبيه هذه هو فوق الساعة مثل بقية البرامج
مثلاً عند الأفست لما يتم تحديث البرنامج تضهر رسالة في هذا المكان و أغلب البرامج تفعل هذا
و هذه صورة لأحد برامجي إستعملت فيها تنبيه
أرأيتم .. التنبيه أصبح إحترافي بكل معنى الكلمة
الآن مع الشيئ البرمجي .. في حدث FormCreate نضع الكود التالي
-----------------------------------------------------------------------------------------
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;
-----------------------------------------------------------------------------------------
و هذا فيديو لبرنامجي السابق حين يتم التنبيه
0 comments: