30-03-2016, 04:29 PM
هذه الاداة من برمجتي اسمتها ScrollView مهمتها تقوم على عرض مجموعة من النماذج في مكان واحد
مع ثاثير الانزلاق حتى الان .
من هذا الرابط تجدون الاداة
وهنا مثال عنها
بالمرفقات الاداة وكذلك ملف تنفيذي يوضح طريقة العمل
احتاج للتجربة والنقذ
[img]![[صورة: 145935046447251.jpg]](http://store2.up-00.com/2016-03/145935046447251.jpg)
[URL=[/img]
هذه صورة من المشروع قبل ان اترجمها الى مكون
نسيت
لاظهار النموذج تحتاج الى استدعاء الاجراء التالي
اسم النموذج وكذلك هل يظهر فجاء ام بانزلاق وهي اخياريا
كما لدينا النوع
من الخاصية TypeScroll حدد اتجاه الانزلاق الى اليمين او اليسار او فوق
كما اريد ان انبه الى ان اي نموذج يختفي يتم اغلاقه
لذلك يجب عدم ترك النماذج تحمل تلقائيا وانما
مع ثاثير الانزلاق حتى الان .
من هذا الرابط تجدون الاداة
كود :
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;