کلینیک دلفی

اين قطعه برنامه (سازنده عنصر) هنگام اضافه شدن عنصر به فرم ، برخي از خواص آن از قبيل ‍Color ،Font،... را مقدار مي دهد. با گزينه File/Save  اطلاعات عنصر Tedit1  را ذخيره نماييد.

حالا بعد از ايجاد عنصر جديد بايد آن را آزمايش كرد.دوراه براي آزمايش عنصر جديد وجود دارد كه عبارتند از : 1-آزمايش عنصر جديد قبل از نصب آن 2-آزمايش عنصر جديد پس از نصب آن

آزمايش عنصر جديد قبل از نصب آن

1-      تمام واحدها و فايهاي ديگري را كه ممكن است باز باشند با گزينه File/closee All ببنديد.

2-      با گزينه File/New پروژه جديدي را ايجاد كنيد.

3-      واحدي را كه عنصر جديد را معرفي ميكند به بخش uses پروژه جديد اضافه نماييد .

4-      در بخش private  پروژه جديد يك عنصر از نوع عنصر جديد تعريف كنين  معرفي عنصر جديد ب صورت زير است ...                                            نام عنصري كه بايد آزمايش شود : نام عنصر

5-      ناحيه خالي فرم پروژه جديد را 2 بار كليك كنيد.كد توليد عنصر كه بايد آزمايش شود به صورت زيرتايپ كنيد ...                                 (self) Create.نام عنصري كه بايد آزمايش شود : نام عنصر

                                                                                   :=self   Parent. نام عنصر

نام عنصر نام همان عنصري است كه در بخش Private   تعريف شده است متد Create  براي ايجاد عناصر جديد در زمان اجرا بكار ميرود.پازامتر Self تعيين مي كند اين عنصر متعلق به همان عنصري است كه اين متد در آن قرار دارد وقتي ديگر نيازي به به اين عنصر نباشد آن را از بين مي برد. مقدار Self در خاصيت Parent  مربوط به عنصري قرار ميگيرد كه عناصر ديگر را شامل مي شود . از جمله عناصري كه عنصر ديگر را شامل مي شوند Tform , TgroupBox هستش ...

1 - حالا با گزينه File/New تمام فايلها و واحد ها رو ببنديد .

2 -  با گزينه File/New  پروژه جديدي را ايجاد كنيد.

3 - واحد Edit 1  را به بخش Uses   پروژه تون اضافه كنيد.

4 – در بخش Private  دستوري به صورت زير تايپ كنين :‌

MGSEdit : Tedit1

5 – ناحيه خالي فرم را كليك كنيد و دستورات مربوط به رويداد فرم Create  را تايپ كنيد ..2 button  به فرم اضافه كنين و خاصيت Name آنها را به ترتيب به Run , Exit تغيير دهيد ..

procedure TForm1.FormCreate(Sender: Tobject);

begin

MGSEdit:=TEdit1.Create(self);

MGSEdit.parent:=self;

MGSEdit.left:=50;

MGSEdit.Top:=70;

MGSEdit.Width:=350;

End;

procedure TForm1.RunClickClick(Sender: Tobject);

begin

MGSEdit.Text:=' < MGS Team > Component Sample !!!..';

Form1.Caption:=MGSEdit.Text;

End;

procedure TForm1.ExitClickClick(Sender: Tobject);

begin

Close;

end