دخول

Delphi4Us

هذه الاداة من برمجتي اسمتها 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;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة