دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

اختفاء النافذة تدريجيا وبوقت محدد

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

اختفاء النافذة تدريجيا وبوقت محدد

مُساهمة  alla في 1/1/2017, 11:06 pm

اختفاء النافذة تدريجيا وبوقت محدد

هذا الكود  يجعل النافذة تختفي  تدريجيا حتى تصبح  شفافة  

بالنسبة للعدد 1300 فهو يمثل  الوقت الذي  تستغرقه النافذة في الاختفاء


الرمز:

procedure TForm1.Button1Click(Sender: TObject);
begin
 AnimateWindow(Handle,1300,AW_BLEND or AW_HIDE);
 close;

end;

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

alla
مبرمج مجتهد

عدد المساهمات : 684
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى