منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 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) ؛
بدأ
{لا يمكن تغيير ارتفاع combobox ، لذا بدلاً من combobox "a
سنقوم بتغيير ارتفاع خط الشبكة "a!}
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: Boolean) ؛
فار
صاد:
بدأ
إذا ((ACol = 3) AND (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.Width: = (R.Right + 1) - R.Left؛
ComboBox1.Height: = (R. Bottom + 1) - R.Top؛
{عرض combobox}
ComboBox1.Visible: = True؛
ComboBox1.SetFocus.
ينتهي.
CanSelect: = صحيح ؛
الغاية؛



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

في مكتبة RX هناك فئة من شيء مثل TPopupWindow ...



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

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

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









الذاكرة: 0.57 ميغابايت
الوقت: 0.024 ج
3-21947
اشداء
2001-12-05 13:18
2002.01.08
استرداد قائمة الفهرس من جدول Oracle


14-22349
إيفان شيخليف
2001-11-06 21:48
2002.01.08
إلى أناتولي بودغوريتسكي


1-22192
حالم
2001-12-15 19:34
2002.01.08
كيفية سحب ثواني من الوقت وترجمتها


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


1-22170
AVALLOGIGS
2001-12-20 19:37
2002.01.08
مساعدة!





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