تغییر event ها از داخل برنامه

[babak869]

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

چگونه یک event را در جاهای گوناگون تغییر بدهم

مثلا فرض کنیم در یک فرم چند تا Button داریم
می خواهم از یک فرم پارامتر دستور اجرای دگمه رو به اون فرم ارسال کنیم . مثلا از فرم 1 پارامتری ارسال کنیم که دگمه 1 در فرم 2 به این صورت شود :

form2.Button1.OnClick:=.......

procedure TForm2.Button1Click(Sender: TObject);

begin

ShowMessage('my message);

end;

و اگه بخواهیم اون دستور رو از فرم 1 تغییر بدیم کد دگمه فرم 2 بصورت زیر تغییر کنه

procedure TForm2.Button1Click(Sender: TObject);

begin

Application.Terminate;

end;

ممنونم

[vcldeveloper]

دو متد با Signature ایی مشابه Event ایی که می خواید، بسازید و کدهای مربوطه را در هر دوی آنها بنویسید. هر زمان لازم شد، یکی از این متدها را به Event مربوطه اختصاص بدید.
یا در داخل کد مربوط به Event مربوطه شرطی بزارید که مشخص کنه در چه زمانی چه کدی باید اجرا بشه.

[babak869]

دو متد با Signature ایی مشابه Event ایی که می خواید، بسازید و کدهای مربوطه را در هر دوی آنها بنویسید. هر زمان لازم شد، یکی از این متدها را به Event مربوطه اختصاص بدید.
یا در داخل کد مربوط به Event مربوطه شرطی بزارید که مشخص کنه در چه زمانی چه کدی باید اجرا بشه.

علی جان سلام
دگمه تشکر هم که غیب شده ازت تشکر کنم.
میتونی یه کم بیشتر راهنمایی کنی یا اگه امکان داشته باشه نمونه ش رو بنویسی (خیلی مختصر) . دستت درد نکنه .

[Mohammad_Mnt]

procedure Proc1(Sender: TObject);

begin

ShowMessage('my message);

end;



procedure Proc2(Sender: TObject);

begin

Application.Terminate;

end;

حالا هر موقع خواستین :

Form2.MyButton.OnClick := Proc1;

یا

Form2.MyButton.OnClick := Proc2;

[Mahmood_M]

سلام
در هر صورت باید کدها رو از قبل نوشته باشید و همونطور که آقای کشاورز گفتند در زمان اجرا اونها را به Event مربوطه اختصاص بدید ...
به عنوان مثال :
فرض کنیم طبق مطالب شما دو تا کد داریم که باید یکی از اونها رو در زمانهایی خاص به Event اختصاص بدیم ، اول هر دو رو تعریف میکنیم :

  public

   Procedure MyProc1(Sender : TObject);

   Procedure MyProc2(Sender : TObject);

    { Public declarations }

...



implementation



Procedure TForm1.MyProc1(Sender : TObject);

begin

 Application.Terminate;

end;



Procedure TForm1.MyProc2(Sender : TObject);

begin

 MessageBox(Handle, 'Text', 'Caption', MB_OK);

end;

بعد موقعی که میخواید اون رو اختصاص بدید باید یک شرطی بزارید و طبق اون Procedure مورد نیاز رو اختصاص بدید ، به عنوان مثال :

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

 if MyVar = True then

  BitBtn1.OnClick := MyProc1

 else

  BitBtn1.OnClick := MyProc2;

end;

نکته مهم که آقای کشاورز هم اشاره کردند ( Signature مشابه ) اینه که باید Procedure شما مثل Event مربوط به BitBtn باشه یعنی عبارت " ( Sender : TObject ) " رو داشته باشه تا به عنوان Procedure به دکمه اختصاص پیدا کنه ...

یک مثال هم آماده کردم که میتونید از اینجا دانلود کنید ...

موفق باشید ...

-------
مثل این که آقا محمد زودتر جواب دادند ، به هر حال پست رو پاک نمیکنم ( حداقل به خاطر مثال )
------