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

اختفاء النافذة تدريجيا نحو الوسط

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

اختفاء النافذة تدريجيا نحو الوسط

مُساهمة  alla في 14/1/2017, 5:42 pm


اختفاء النافذة تدريجيا نحو الوسط

الرمز:

// النافذة تختفي الى الوسط
procedure TForm1.Button1Click(Sender: TObject);
begin
  AnimateWindow(Handle,1300,AW_CENTER or AW_HIDE);
  close;
end;

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

alla
مبرمج مجتهد

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

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

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


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