مشكل اضافة الارقام مرتبة في VertScrollBox1

[invocker]

السلام عليكم

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

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




الكود

كود :

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

---

[invocker]

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

[Eagle Master]

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

عند انشاء اوبجكت جديد بطريقة ديناميكية يكون 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]

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