منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

الناس ، سؤال سهل جدا! رابط إلى الإجراء ، في كلمة واحدة. البحث عن فروع مماثلة


Serg5   (2001-12-19 15:14) [0]

الإجراء TForm1.Button1Click (المرسل: TObject) ؛
فار
a، b: integer؛
بدأ
a: = 3 ؛
b: = 0 ؛
b:=a*StrToInt(Edit4.Text)*StrToInt(Edit3.Text);
Label7.Caption:=IntToStr(b);
الغاية؛

الإجراء TForm1.Button2Click (المرسل: TObject) ؛
بدأ
Button1Click(); <<<< что тут ей написать???
الغاية؛

شكرا لك!



tovSuhov   (2001-12-19 15:20) [1]

Можно в Object Inspector`е событию OnClick присвоить Button1Click, если в рун-тайме переопределять события не понадобится.



MBo   (2001-12-19 15:25) [2]

Sender и пиши, но проще как tovSuhov написал или задать (хоть в TForm1.Create)
Button2.Onclick:=Button1Click;



Alexander   (2001-12-19 15:51) [3]

Пиши Button1Click(Self);



Mick   (2001-12-19 15:59) [4]

В данном конкретном случае просто пиши Button1Click(nil);



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي









الذاكرة: 0.56 ميغابايت
الوقت: 0.065 ج
14-22415
Wetnose
2001-11-12 06:42
2002.01.08
ثيمات ويندوز إكس بي


1-22243
Gumbert-Gumbert
2001-12-16 22:22
2002.01.08
كيف تأخذ الجذر من الدرجة الثانية في دلفي؟


6-22273
دينيس تيتوف
2001-10-06 11:50
2002.01.08
بناء الشبكة المحلية


3-21925
Nailka
2001-12-04 16:16
2002.01.08
مشكلة في البحث في حقل نوع طويل في أوراكل


1-22162
بفغ
2001-12-19 20:41
2002.01.08
افي





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch أنجليزي الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский