دوستان یک سوال ساده که تاحالا بهش برنخورده بودم
چگونه یک 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;
ممنونم
پاسخ با نقل قول