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

إلى

تحديد رقم عنصر القائمة البحث عن فروع مماثلة


T2   (2001-12-16 07:29) [0]

برمجيا إنشاء قائمة. أحشر في القائمة المنبثقة أسماء الأقراص المتوفرة (كم عددها مسبقًا). كيفية معرفة عنصر القائمة الذي تم اختياره ، ويفضل في إجراء معالجة واحد؟



KilkennyCat   (2001-12-16 08:02) [1]

افعل هذا:

أقوم بإنشاء إجراء معالجة أحيل إليه النقرات من جميع النقاط. نوع:

الإجراء TForm1.popClick (المرسل: TObject) ؛
بدأ
إذا كان المرسل = b ثم showmessage ("b") ؛ / / النقر فوق العنصر المسمى ب
إذا كان المرسل = ثم showmessage ("a") ؛ / / النقر فوق العنصر المسمى أ
الغاية؛

بالطبع ، مع عدد كبير من النقاط تحتاج إلى فهرستها.



T2   (2001-12-16 08:59) [2]

نعم ، لكن الأسماء "أ" و "ب" غير معروفة قبل الإنشاء. عناصر القائمة هذه غير متوفرة عند
التجميع وعند محاولة مقارنة المرسل = أ ، الخطأ "معرف غير معلن:" أ. ألقيت. هل يمكن أن تكون الشفرة أكثر وضوحًا؟

الإجراء TMain.pu2Popup (المرسل: TObject) ؛
var s: tstringlist؛ i: byte؛ NewItem: TMenuItem؛ f: int64؛ d: string [1]؛
بدأ
pu2.Items.Clear؛ s: = tstringlist.create؛
si.GetDriveList (s) ؛ بالنسبة إلى i: = 0 to s.Count-1
NewItem: = TMenuItem.Create (Self) ؛
d: = copy (أحرف كبيرة (s.strings [i]) و 1,1) ؛
f: = diskfree (ord (d [1]) - 64) ؛ إذا كان f = -1 ، ثم f: = 0 ؛
NewItem.Caption: = "&" + d + ": (" + Inttostr (f) + "bytes)"؛
newitem.OnClick: = ddd؛
imagelist1.getbitmap (0، newitem.Bitmap)؛
pu2.items.Add (NewItem) ؛
النهاية ؛
الغاية؛

الإجراء tmain.ddd (المرسل: tobject) ؛
بدأ
إذا كان المرسل = c1 ثم showmessage ("القرص <C> حدد") ؛ // اذا؟
الغاية؛

كل الحق



KilkennyCat   (2001-12-16 09:07) [3]

أم ... في رأيي ، من الضروري إنشاء NewItem.Name (على سبيل المثال ، أ)



Anatoly Podgoretsky   (2001-12-16 10:11) [4]

لديك NewItem.Caption الحرف الثاني هو اسم محرك الأقراص ، وهذا يكفي لتحديد



Dmitriy(new)   (2001-12-16 12:09) [5]

الإجراء tmain.ddd (المرسل: tobject) ؛ var d: string [1]؛
بدأ
d: = copy (TMenuItem (المرسل) .Caption ، 2,1) ؛
showmessage ("القرص <" + D + "> حدد") ؛
// if sender = c1 ثم showmessage ("القرص <C> حدد") ؛ // اذا؟
الغاية؛



Петрович   (2001-12-17 04:47) [6]

أو يمكنك تجربة استخدام خاصية Tag!



GennadyS   (2001-12-17 08:45) [7]

كنت دائما استخدام الملكية TAG في مثل هذه الحالات. وهذا يتوقف على عدد النقاط التي أعرفها بالضبط. (بالنسبة لجميع النقاط ، إجراء معالجة واحد) في هذا الإجراء:

حالة (مرسل كـ TComponent)
1: // معالجة القرص B
2: // - / - C
...



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

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

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





الذاكرة: 0.57 ميغابايت
الوقت: 0.045 ج
1-22146
Mikle
2001-12-19 17:19
2002.01.08
مواطن الخلل عند الطباعة إلى طابعة نقطية


1-22160
Yakudza
2001-12-20 16:46
2002.01.08
نسخ إلى الحافظة


6-22280
rg
2001-10-06 13:26
2002.01.08
كيفية قبول رسالة من Winpopup (دردشة لـ lokalki)؟


1-22004
KhLexa
2001-12-17 17:57
2002.01.08
مواطن الخلل


6-22305
كريبتين فريك
2001-10-11 19:43
2002.01.08
المقابس ... Lokalka ...





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