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

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلام عليكم
كيف اضيف اسم وعنوان لنماذج انشأتها وقت التنفيذ
اي
(tform2.create(self
تظهر الفورم الثاني مع ترقيم تلقائي
form_1
form_2
Form_3
الخ

سلام عليكم

كود :
var
F2:TForm;
begin
F2:=Tform.Create(Self);
with f2 do
    begin
          Parent := self;
          //Height := 100;
          //Width := 400;
          align:=alclient;
          caption:='welcome to Myform_01';
          color:=clred;
          //  properties like form..
          show;
    end;
end;

شكرا لك لقد نجح الامر لكن تبقى مشكللة الترتيب align:=alleft
فالنماذج تظهر هكذا
list4,list3,list2,list1
بدل
list1,list2,list3

jeanjamil

Mr.DOS

jeanjamil