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

إلى

حول TObject في الأحداث البحث عن فروع مماثلة


Mikhalyov Dmitry   (2001-12-19 15:55) [0]

اكتب لي الفرامل على مثال استدعاء حدث Edit1.OnChange من حدث أو إجراء آخر



MBo   (2001-12-19 16:00) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1008764059&n=0



gek   (2001-12-19 16:00) [2]

А че тебе еще написать а, может и прогу заодно?



Alex_Sudakov   (2001-12-19 16:01) [3]

if Assigned(Edit1.Onchange) then Edit1.Onchange(self);



Mick   (2001-12-19 16:02) [4]

Edit1.OnChange(Edit1)
Edit1.OnChange(nil)
Edit1.OnChange(Self)
Edit1.OnChange(Application)

Но все зависит от реализации самого обработчика
procedure Edit1.OnChange(Sender:TObject);



Mick   (2001-12-19 16:06) [5]

Sorry, конечно же так:
Edit1Change(Edit1)
......
Edit1Change(Application)




Alex_Sudakov   (2001-12-19 16:07) [6]

Чем тебе предыидущий вариант не понравился?



Mick   (2001-12-19 16:13) [7]

> Alex_Sudakov
В первом случае необходимо проверять свойство у Edit1 OnChange на nil.



Alex_Sudakov   (2001-12-19 17:01) [8]

Ну да, и что? Чем тогда тебе لي выриант не нравится?



Mick   (2001-12-19 17:09) [9]

Мне все нравится. Автор вопроса задал вопрос нечетко.
Мне показалось что он просто хочет повторно использовать код, реализованный у него в Form1.Edit1Change(Sender:TObject).



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

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

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









الذاكرة: 0.57 ميغابايت
الوقت: 0.041 ج
1-22148
Delphimun
2001-12-20 12:10
2002.01.08
كيف ترسل رسالة إلى النظام تفيد بأن المفتاح مضغوط؟


1-22159
Phisio
2001-12-19 22:56
2002.01.08
كيفية إنشاء هيكل جديد


3-21984
سيد أندرو
2001-12-05 20:39
2002.01.08
تحديث البيانات


1-22096
ميخائيلوف ديمتري
2001-12-19 15:55
2002.01.08
حول TObject في الأحداث


1-22257
Dmitry1
2001-12-14 16:53
2002.01.08
يوم جيد





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