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

[aymen1992]

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



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



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



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



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



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

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

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



الآن مع الشيئ البرمجي .. في حدث 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;