בית
Top.Mail.Ru Yandeks.Metrika
פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למטה

קבע את מספר פריט התפריט מצא סניפים דומים


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

צור באופן פרוגרמטי תפריט. אני דוחף את שמות הדיסקים הזמינים לתפריט הקופץ (לא ידוע מראש כמה יש). כיצד לגלות איזה פריט בתפריט נבחר, רצוי בהליך עיבוד אחד?



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

אני עושה את זה:

אני יוצר נוהל עיבוד שעבורו אני מעביר קליקים מכל הנקודות. סוג:

נוהל TForm1.popClick (שולח: נושא);
להתחיל
אם השולח = b אז showmessage ("b"); // לחץ על פריט בשם b
אם השולח = a אז showmessage ("a"); // לחץ על פריט בשם a
הסוף;

כמובן, עם מספר רב של נקודות שאתה צריך לאינדקס.



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

כן, אבל השמות "a" ו- "b" אינם ידועים לפני היצירה. פריטי תפריט אלה אינם זמינים כאשר
אוסף וכשמנסים להשוות בין השולח = א, השגיאה "מזהה לא מוצהר:" א.

נוהל TMain.pu2 קופץ (שולח: נושא);
var s: tstringlist; i: byte; NewItem: TMenuItem; f: int64; d: string [1];
להתחיל
pu2.Items.Clear; s: = tstringlist.create;
si.GetDriveList (ים); עבור i: = 0 ל- s.Count-1 כן מתחילים
NewItem: = TMenuItem.Create (עצמי);
d: = העתק (אותיות גדולות (מיתרים [i]), 1,1);
f: = דיסקfri (ord (ד [1]) - 64); אם f = -1 אז f: = 0;
NewItem.Caption: = "&" + d + ": (" + Inttostr (f) + "בתים)";
חדש: קליק: = ddd;
imagelist1.getbitmap (0, newitem.Bitmap);
pu2.items. הוסף (NewItem);
סוף; s.free;
הסוף;

נוהל tmain.ddd (שולח: tobject);
להתחיל
אם השולח = c1 ואז showmessage ("דיסק <C> בחר"); // אז?
הסוף;

האם זה בסדר?



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

אממ ... לדעתי, יש צורך ליצור NewItem.Name (לדוגמה, א)



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

יש לך NewItem. הכיתוב שהאות השנייה היא שם הכונן, זה מספיק כדי לזהות



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

נוהל tmain.ddd (שולח: tobject); var d: מחרוזת [1];
להתחיל
d: = העתק (TMenuItem (שולח). כיתוב, 2,1);
showmessage ("דיסק <" + D + "> בחר");
// אם השולח = c1 ואז showmessage ("דיסק <C> בחר"); // אז?
הסוף;



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

או שתוכלו לנסות להשתמש במאפיין Tag!



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

תמיד השתמשתי בנכס TAG במקרים כאלה. ותלוי במספר הנקודות ידעתי בדיוק איזה קליק. (לכל הנקודות הליך עיבוד בודד) בנוהל זה:

מקרה (שולח כרכיב TC). תג של
1: // עיבוד דיסק B
2: // - / - ג
...



עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה





זיכרון: 0.56 MB
זמן: 0.026 c
1-22035
מַברִיחַ
2001-12-18 14:02
2002.01.08
עורך טקסטים 2


1-22063
אמנות
2001-12-18 15:12
2002.01.08
ואתה יכול לחסום את הגישה לתיקיה, משהו כמו fmShareExclusive, אבל לתיקיה ???


3-21960
אלנקה
2001-12-05 12:53
2002.01.08
עזרה בבקשה!


1-22079
kserg@ukr.net
2001-12-19 13:11
2002.01.08
כיצד לקשר נכון כפתור ל- ToolBara לפריט בתפריט ב- MainMenu?


3-21900
vano
2001-12-07 11:13
2002.01.08
TString ומחרוזת





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский