نحوه ساخت رویداد برای کنترل های داینامیک

[kastakoorta]

فرض کنید یک Lable رو به صورت داینامیک(Runetime) به برنامه اضافه کردیم .
حالا چطور میشه مثلا برای رویداد OnMouseLeave اون دستور نوشت ؟
ممنون میشم راهنمایی کنید.

[mzjahromi]

کد رو که نمیتونی در زمان اجرا تولید کنی. پس بهتره یک یا چند تابع که ممکنه لازمت بشه بنویسی و در زمان اجرا تابه مورد نظر رو به اون رویداد متصل کنی

[kastakoorta]

نوع رویدادها متفاوت است !.
چطور میشه یخ Preocdure یا تابعی که نوشتم رو به روداد ها ربط بدم.
میشه یه مثال بزنید.
مثلا برای رویدادی که در بالا ذکر کردم.
ممنون.

[vcldeveloper]

چطور میشه یخ Preocdure یا تابعی که نوشتم رو به روداد ها ربط بدم.
میشه یه مثال بزنید.
1- یه متد در یکی از کلاس های برنامه اتون ایجاد کنید که نوع، تعداد و ترتیب پارامترهاش مثل همون رویداد باشه
2- متدی که در بالا ساختید را به رویداد مربوطه اختصاص بدید:


private
{ Private declarations }
procedure MyClick(Sender: TObject);
//////////
.
.
.
/////////
Button1.OnClick := MyClick;