בית
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.57 MB
זמן: 0.028 c
1-22193
T2
2001-12-14 03:17
2002.01.08
DLL


1-22250
דמיטרי ד.
2001-12-17 13:28
2002.01.08
אלא שאלה מתמטית ...


1-22213
T2
2001-12-16 07:14
2002.01.08
סודי Api & oth.


14-22360
ENG
2001-11-07 19:16
2002.01.08
אינטרנט אקספלורר


1-22101
DenKop
2001-12-18 14:38
2002.01.08
יצירת עזרה s





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