كليك كنيد

لطفا نحوه كد نويسي براي يك باتن كه در زمان اجرا ايجاد شده را بنويسيد منظور رويدادهاي آن است

سلام
فكر كنم چندين بار توضيح داده شده. اما براي شما يه بار ديگه هم ميگم.
بفرما اين هم كد .

کد:

---

private
    procedure ClickBTN(sender: tobject);

---

کد:

---

procedure Form1.ClickBTN(sender: tobject);
begin
    showmessage('I am a soldier');
end;

---

کد:

---

BTN.Onclick:=ClickBTN;

---

یه توضیح مختصر بدم.
BTN همون دکمه ای هست که با کد ایجادش کردی.
ClickBTN هم یه پروسیجر هست که خودمون معرفیش کردیم به دکمه.

یه چیز دیگه.با این کد وقتی کلیک کردی روی دکمه. یه پیغام میاد : 'I am a soldier' :):):)
هر جا مشکلی داشتی بپرس.

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

انشاا.. جبران میکنم