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

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

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

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


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

الكود:

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

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

alla
مبرمج مجتهد

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

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

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


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