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

مشكل اضافة الارقام مرتبة في VertScrollBox1 - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكل اضافة الارقام مرتبة في VertScrollBox1 (/showthread.php?tid=11520)

مشكل اضافة الارقام مرتبة في VertScrollBox1 - invocker - 18-09-2021

السلام عليكم

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

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

[صورة: Untitled.png]

الكود

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

RE: مشكل اضافة الارقام مرتبة في VertScrollBox1 - invocker - 19-09-2021

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

RE: مشكل اضافة الارقام مرتبة في VertScrollBox1 - Eagle Master - 19-09-2021

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

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

RE: مشكل اضافة الارقام مرتبة في VertScrollBox1 - invocker - 19-09-2021

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