كيف أستدعي دالة بالشكل

اخي العزيز

لا تحتاج الى اضافة Sender في تعريف الإجراء، فقط اجعله يتكون من المتغير I فقط

واذا اردت استدعائه عن الضغط على الزر قم بكتابة (Task(10 فقط ضمن حدث OnClick

أخي محمد

أنا أنسب الحدث onclick للزر ب run time لأن button1 يقوم بعدة أجراءات بحسب مايفعله المستخدم أي أن onclick دائما يتغير ولا أريد تحديده بالنقر المزدوج على الزر أرجو أن يكون قصدي واضحا

up

اخي الكريم يمكنك استدعاءه بطريقتين

فلو اردنا مثلا عند الفورم كريت استدعاء الحدث Onclick لل Button1

1 - يمكننا

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick(Sender);
end;

2- او كتابة

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1Click(Sender);
end;

كلا أنا أريد أستدعاء Task ...كيف أمرر بارامتراتها حتى تصير العبارة

button1.onclick:=Task(???,10)

صحيحة

مرحبا

اقتباس

button1.onclick:=Task(???,10)

أخي العبارة غير صحيحة

لان التابع onclick يملك متغير واحد هو Sender من النوع Tobject

وأنت تسنده إلى تابع يملك متغيرين

وحتى تصبح العبارة صحيحة يجب

أن يكون التابع الذي تسنده إلى التابع onclick

يملك متغير من النوع Tobject

نعم صحيح ..

البروسيجر من النوع

procedure (sender:Tobject) ;

يسمى TnotifyEvent ..

ولكي تنجح بالنسب الديناميكي لهكذا إجراء عليك مراعاة ان يحوي نفس عدد البارمترات ..

مثلا :

 private
  procedure task(sender:tobject);
.
.
.

procedure Tform1.task(sender:Tobject);
begin
caption:='hi';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
button1.onclick:=task;
end;

نعم هذا سيعمل بشكل جيد -

إذا أردت وجود المتحول i بإمكانك استدعاء دالة اخرى داخلية من ضمن task تحوي المتغير i ...

شكرا على الرد أخواني