چگونه مي توانم براي رويداد OnClick آن يك تابع بنويسم.

من با كد زير و با استفاده از متود Create يك Button ساخته ام. چگونه مي توانم براي رويداد OnClick آن يك تابع بنويسم.
[HTML]Var
MyBtn:TButton;
begin
MyBtn:=TButton.Create(Form1);
Form1.InsertControl(MyBtn);
MyBtn.Left:=50;
MyBtn.Top:=30;
MyBtn.Caption:='MyBtn';
end;[/HTML]

سلام
يكي از راههای ساده و بی دردسرش اينه كه شما يه Action بسازید ( با استفاده از کامپوننت ActionList ) و خاصیت Action مربوط به دکمه رو به اون ارتباط بدید ...
اگه با این کامپوننت زیاد کار نکردید بگید تا کمکتون کنم ...
موفق باشید ...

نقل قول:

---

نوشته شده توسط hghb

من با كد زير و با استفاده از متود Create يك Button ساخته ام. چگونه مي توانم براي رويداد OnClick آن يك تابع بنويسم.
[HTML]Var
MyBtn:TButton;
begin
MyBtn:=TButton.Create(Form1);
Form1.InsertControl(MyBtn);
MyBtn.Left:=50;
MyBtn.Top:=30;
MyBtn.Caption:='MyBtn';
end;[/HTML]

---

سلام
اينو ببينيد :

کد:

---

  public
  procedure MyButtonOnClick(Sender: TObject);


procedure TForm1.MyButtonOnClick(Sender: TObject);
begin
 (Sender as TButton).Caption := (Sender as TButton).Name;
end;


Var
  MyBtn:TButton;
begin
  MyBtn:=TButton.Create(Form1);
  Form1.InsertControl(MyBtn);
  MyBtn.Left:=50;
  MyBtn.Top:=30;
  MyBtn.Caption:='MyBtn';
  myBtn.Name := 'btnTest';
  MyBtn.OnClick := MyButtonOnClick;
end;

---

سلام عزيز
اول بايد يك پروسيجر بنويسي!
به اين صورت توي قسمت private
procedure nameprocedure(sender:TObject);
بعد باید این رو اضافه کنی به جایی که این باتن رو ساختی
MyBtn.OnClick:=nameprocedure;
خوب تموم شد! حالا باید دستورات پروسیجر رو بنویسی!
به این صورت :
procedure TForm1.nameprocedure(Sender: TObject);
begin
Close;
end;

اگر هم می خواستی بگو
یه نمونه کامل بهت بدم!
موفق باشی