دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

اذهب الى الأسفل

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

مُساهمة  ali 1/1/2017, 11:06 pm

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

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

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


الكود:

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

end;

ali
مبرمج مجتهد

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

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

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

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