الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اغلق برنامجك بطريقة مختلفة

مغلق
بدأه madi في 29 يناير 2002 · 2 رد · 1,627 مشاهدة · في أرشيف منتدى الدلفي
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

سلام

تستطيع اضافة بعد الاتارة الى عملية اغلاق البرنامج

متلا , جرب أن تضع الاوامر التالية في حدت الاغلاق للفورم الرئيسي 

[l]



procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

While form1.height <> 30 do

    begin

    sleep(5);

    form1.height := form1.height - 1;

    end;

    application.Terminate;



end;



[/l]

تلاحض أن الفورم عند اغلاقها سوف يصغر حجمها تدريجيا الى أن تتلاشى ,

وشكرا

مــــMADIــــدي

#2

جرب ان تغلقها دائريا 

[l]



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var

RGN : HRGN;

begin

While form1.height <> 30 do

    begin

      sleep(5);

      RGN := CreateEllipticRgn(form1.Top div 2,Form1.Left div 2,form1.Width,form1.height);

      SetWindowRgn(handle,RGN,True);

      form1.height := form1.height - 1;

      form1.Width := form1.Width - 1;

     DeleteObject(RGN);

    end;

    application.Terminate;

end;



[/l]

لاحظ انك تستطيع استغلال الاوامر

[l]

      RGN := CreateEllipticRgn(form1.Top div 2,Form1.Left div 2,form1.Width,form1.height);

      SetWindowRgn(handle,RGN,True);

[/l]

لتغيير شكل الفورم .

وشكرا

مــــMADIــــدي

#3

ممتاز وإلى الأمام

أبو ماجد الصارم

هذا الموضوع مغلق.

مواضيع مشابهة