delphi4arab منتديات دلفي للعرب

السلام عليكم

اواجه مشكل عند اضافة كائن الى VertScrollBox1 لا تكون المدخلات مرتبة المفروض تكون 1 2 3 4

لكن عند الاضافة تتم الازاحة الى الاعلى مثل الصورة

[صورة: Untitled.png]

الكود

كود :
recadmin := TAdmin.Create(self);
      recadmin.admin.Align := TAlignLayout.Top;
      recadmin.txtAdmin.Text := edtxt;
       self.AddObject(recadmin.admin);

استخدمت beginupdate and endupdate لكن نفس المشكل

وعليكم السلام ورحمة الله وبركاته

عند انشاء اوبجكت جديد بطريقة ديناميكية يكون position الخاص به (0,0) لذلك تظهر غير مرتبة لذا تحتاج اضافة position وتضيف 1 اليها

مثلا في الكود الخاص بك يكون هكذا مع العلم هناك طرق اخرى لكن هذه افضلها

كود :
recadmin := TAdmin.Create(self);
   recadmin.admin.position.y:=self.height+1;       //ضف هذا السطر 
      recadmin.admin.Align := TAlignLayout.Top;
      recadmin.txtAdmin.Text := edtxt;
       self.AddObject(recadmin.admin);

بارك الله فيك اخي هذا ما احتاجه جزاك الله خيرا

invocker

invocker

Eagle Master

invocker