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

למטה

צור רשימה נפתחת ב- StringGride, הקלד חיפוש ב- DBGride מצא סניפים דומים


Кто нибудь делал?   (2001-12-14 08:12) [0]

ניסיתי ליצור טופס עם BorderStyle = bsNone ועליו ListBox, זה עובד, אך במהלך הופעתו כותרת הטופס הופכת לא פעילה.
בעת שימוש ברכיבים הם לא יכולים לחרוג מהטופס.
אולי מישהו כבר התגבר על זה.



Владислав   (2001-12-14 08:47) [1]

האם אוכל לנסות את תפריט ההקשר?



Кто нибудь делал?   (2001-12-14 09:04) [2]

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



Владислав   (2001-12-14 10:42) [3]

אני יכול לזרוק לך דוגמא קטנה (בחיפזון). אולי משהו יעזור.



Mark_a   (2001-12-15 11:16) [4]

על הטופס להיות StringGrid ו- ComboBox
השתמש בקוד הבא:

הליך TForm1.FormCreate (שולח: TObject);
להתחיל
{לא ניתן לשנות את גובה הקומבוקס ', אז במקום הקומבוקס' א
נשנה את גובה קו הרשת "א!}
StringGrid1.DefaultRowHeight: = ComboBox1.Height;
StringGrid1.Cells [3,0]: = "הרשימה כאן";
{הסתר combobox}
ComboBox1.Visible: = False;
ComboBox1.Items.Add ("פריט ראשון");
ComboBox1.Items.Add ("פסקה שנייה");
הסוף;

הליך TForm1.ComboBox1Change (שולח: TObject);
להתחיל
{אנו נעביר ערך שנבחר מ- ComboBox לרשת}
StringGrid1.Cells [StringGrid1.Col, StringGrid1.Row]: =
ComboBox1.Items [ComboBox1.ItemIndex];
ComboBox1.Visible: = False;
StringGrid1.SetFocus;
הסוף;

הליך TForm1.StringGrid1SelectCell (שולח: TObject, ACOL,
חץ: מספר שלם; var CanSelect: בוליאני);
היה
R: TRECT;
להתחיל
אם ((ACOL = 3) ו- (ARow <> 0))
להתחיל
{רוחב ומיקום ה- ComboBox חייבים להתאים
תא StringGrid}
R: = StringGrid1.CellRect (ACol, ARow);
R.Left: = R.Left + StringGrid1.Left;
R.Right: = R.Right + StringGrid1.Left;
R.Top: = R.Top + StringGrid1.Top;
R.Bottom: = R.Bottom + StringGrid1.Top;
ComboBox1.Left: = R.Left + 1;
ComboBox1.Top: = R.Top + 1;
ComboBox1. רוחב: = (R.Right + 1) - R.Left;
ComboBox1. גובה: = (R. תחתון + 1) - R.Top;
{הצג combobox}
ComboBox1.Visible: = נכון;
ComboBox1.SetFocus;
ח
CanSelect: = True;
הסוף;



vlv   (2001-12-15 11:43) [5]

בספריית RX יש כיתה של משהו כמו TPopupWindow ...



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

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

למעלה





זיכרון: 0.56 MB
זמן: 0.023 c
4-22458
אייאקס
2001-10-31 17:50
2002.01.08
TColor ו- RGB


14-22320
אלכסנדר
2001-11-14 14:13
2002.01.08
וואו


4-22509
קארן
2001-11-08 12:50
2002.01.08
GetkeyboardState- מה עושה?


1-22143
[NWC] אמינם
2001-12-20 12:04
2002.01.08
.dcu


14-22326
מקסים
2001-11-04 11:35
2002.01.08
האם מישהו רצה למתוח את מוחו? מהן האפשרויות לאלגוריתם?





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