ساخت اشیاء در زمان اجرای برنامه

[soft-c]

سلام.
آیا راهی است که بدون درگ کردن شی روی فرم ، یعنی با کدنویسی مثلا 10 تا edit روی فرم بگذاریم .

[Felony]

var
ED: Array [1..10] of TEdit;
EDCount: Integer;
begin
for EDCount:= 1 to 10 do
begin
ED[EDCount]:= TEdit.Create(Self);
ED[EDCount].Parent:= Self;
ED[EDCount].Top:= EDCount * 25;
ED[EDCount].Left:= 10;
ED[EDCount].TextHint:= 'Edit ' + IntToStr(EDCount);
end;

[vb.net2008]

سلام
اگه بخوام برای اشیائی که موقع اجرا ساخته می شن مثل شی button رویدادی مثل رویداد click تعریف کنم باید چیکار کنم؟

[یوسف زالی]

سلام.
تمام رویدادها در دلفی در حقیقت یک property هستند.
کافیه یه "متد" بنویسید و مقدار رویداد مورد نظر رو رو اون ست کنید.
دقت داشته باشید که تمام ورودی ها و خروجی های اون متد باید مثل رویداد اصلی باشند.
اصلا اگر dfm بک فرم رو هم ببینید (راست کلیک رو فرم - view as text) دقیقا همین کاره.
مثال:
Button1.OnClick := Form1.MyBtnClick // set kardane ruydad

[vb.net2008]

سلام من می خوام همین اشیادی که در زمان اجرا ساختم رو بازم در زمان اجرا از بین ببرم

[یوسف زالی]

سلام.
خوب از Destroy استفاده کنید.
FreeAndNil هم میشه.

[Mahmood_M]

لطفا قبل از ایجاد تاپیک جستجو کنید :


http://barnamenevis.org/showthread.php?206751-Assign-رویداد-به-همه-آبجکت-ها
http://barnamenevis.org/showthread.php?261520-رویداد-click-و-onclick
http://barnamenevis.org/showthread.php?218999-onclick-Event
http://barnamenevis.org/showthread.php?204854-رویدادهای-آبجکت-های-ایجاد-شده-در-RunTime


این مقاله (http://www.delphiplus.mihanblog.com/post/39) هم می تونه مفید باشه ، موفق باشید ...