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

السلام عليكم
كيف انقل مجموعة منteditالى form جديد
واظهارها بطريقة متناسقة
وعند اغلاق النموذج الجديد اعيدها الى النموذج الاول
var
  i: integer;
begin
  for i := 0 to (ComponentCount - 1) do
    if (Components[i] is TEdit)and (components[i].Tag=1) then
      TEdit(Components[i]).parent := form2;
هذا الكود لا يظهرها متناسقة
ولا استطيع اعادتها الى ما كانت عليه
لا اعلم السبب

وعليكم السلام ورحمة الله
ضعهم كلهم في tpanel واكتفي بنقل البانل فقط
او في حالتك يجب في كل Tcomponents[i] تحديد top and Left للمكون