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

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

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

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

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

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

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


الكود:

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

end;

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

ali1
مبرمج مجتهد

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

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

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


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