sajioo
یک شنبه 21 اسفند 1390, 08:22 صبح
سلام دوستان نمیدونم سوالم رو درست مطرح کردم یا نه .
فرض اینه من یک تایمر روی فرم دارم دو butoon.
می خوام وقتی button اول کلیک میشه تایمر طول button اول رو افزایش بده.
حالا می خوام با همون تایمر اگر روی butoon دوم کلیک شد طول button دوم زیاد بشه.
نمی خوام از if و متغییر کمکی استفاده کنم.
با توجه به این پروسیجر
procedure TForm1.Timer1Timer(Sender: TObject);
من مثلا چنین کدی نوشتم
if Tbutton(sender).Height<417 then
Tbutton(sender).Height:=Tbutton(sender).Height+1;
حالا موندم چطور با زدن دکمه ی اول button اول را بفرستم به پروسیجر تایمر.
امیدوارم منظورم رو رسونده باشم.
سوال دوم اینه که اگه بخوام دو تا شی به همین پروسجر بفرستم چکار کنم؟ اینجا که فقط یک sender تعریف شده.
ممنون از راهنمایی هاتون
فرض اینه من یک تایمر روی فرم دارم دو butoon.
می خوام وقتی button اول کلیک میشه تایمر طول button اول رو افزایش بده.
حالا می خوام با همون تایمر اگر روی butoon دوم کلیک شد طول button دوم زیاد بشه.
نمی خوام از if و متغییر کمکی استفاده کنم.
با توجه به این پروسیجر
procedure TForm1.Timer1Timer(Sender: TObject);
من مثلا چنین کدی نوشتم
if Tbutton(sender).Height<417 then
Tbutton(sender).Height:=Tbutton(sender).Height+1;
حالا موندم چطور با زدن دکمه ی اول button اول را بفرستم به پروسیجر تایمر.
امیدوارم منظورم رو رسونده باشم.
سوال دوم اینه که اگه بخوام دو تا شی به همین پروسجر بفرستم چکار کنم؟ اینجا که فقط یک sender تعریف شده.
ممنون از راهنمایی هاتون