ScrollView لعرض مجموعة من النماذج في مكان واحد

ScrollView لعرض مجموعة من النماذج في مكان واحد - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : برامج دلفي من عمل الأعضاء (https://delphi4arab.net/forum/forumdisplay.php?fid=27)
+--- الموضوع : ScrollView لعرض مجموعة من النماذج في مكان واحد (/showthread.php?tid=7671)

ScrollView لعرض مجموعة من النماذج في مكان واحد - Delphi4Us - 30-03-2016

هذه الاداة من برمجتي اسمتها ScrollView مهمتها تقوم على عرض مجموعة من النماذج في مكان واحد
مع ثاثير الانزلاق حتى الان .

من هذا الرابط تجدون الاداة

كود :
http://www.mediafire.com/download/scz27keoxpjwg3v/ScrollView.bpl

وهنا مثال عنها

كود :
http://www.mediafire.com/download/2fow3vgsmd3qr2b/Project1.rar

بالمرفقات الاداة وكذلك ملف تنفيذي يوضح طريقة العمل
احتاج للتجربة والنقذ

[img]

[URL=[/img]

هذه صورة من المشروع قبل ان اترجمها الى مكون

نسيت
لاظهار النموذج تحتاج الى استدعاء الاجراء التالي

كود :
procedure TScrollView.FormShow(Frm:Tform;Bool:Boolean=true);

اسم النموذج وكذلك هل يظهر فجاء ام بانزلاق وهي اخياريا

كما لدينا النوع

كود :
type
TGetMode = (SclUP, SclDown, SclLeft,SclRight);

من الخاصية TypeScroll حدد اتجاه الانزلاق الى اليمين او اليسار او فوق

كما اريد ان انبه الى ان اي نموذج يختفي يتم اغلاقه

لذلك يجب عدم ترك النماذج تحمل تلقائيا وانما

كود :
if not Assigned(form5) then form5:=Tform5.Create(nil);
ShowFrm(form5);


وكذلك قتل النموذج بالحدث عند الاغلاق

كود :
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Form2:=nil;
   Action:=cafree;
end;