استفسار حول المكونComboBox

[delphi555]

السلام عليكم

اخواني عندي استفسار عن طريقة اضافة كتابة في المكون ComboBox

[kwahab]

وعليكم السلام
على حسب ما فهمت تريد اضافة كتابة في قائمة combobox وهذا سهل جدا اضغط على الكومبوبوكس ثم اذهب الى الخصائص في الجهة اليسرى.واختر items اضغط وستظهر لك قائمة اكتب ما تريد ثم اضغط ok وستجد ماكتبت عند تنفيذ المشروع في قائمة الكومبوبوكس.
بالتوفيق

[delphi555]

الله يجازيك خيرا اخي
ولكن ان اردت ان اظيف اليهم رابطا
يعني لكل كلمة في المكون رابط كيف يمكنني ذلك اخي

[AL-MOB4RM3G]

ولكن ان اردت ان اظيف اليهم رابطا
يعني لكل كلمة في المكون رابط كيف يمكنني ذلك اخي

حينها يجب كتابة الكود في مثلا onChange والله اعلم,

[kachwahed]

يعني لكل كلمة في المكون رابط كيف يمكنني ذلك اخي

لكل مكون يحتوي TStringList في خصائصه (مثل TListBox، TTreeView، TComboBox.....) يمكنه أن يأخذ عبارة نصية (string) ومكون TObject (بالأحرى مؤشر)، مثال لتخزين الصفحة عند كل عنصر من TComboBox.Items:
ضع في مشروع جديد TCombBox و TPageControl وأنشئ فيه ثلاث صفحات (انقر باليمين ثم Add Page...)
الآن أكتب في OnCreate للنموذج:

كود :

procedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.Items.AddObject('Page1', PageControl1.Pages[0]); ComboBox1.Items.AddObject('Page2', PageControl1.Pages[1]); ComboBox1.Items.AddObject('Page2', PageControl1.Pages[2]); end;

ثم في OnChange لـ TComboBox:

كود :

procedure TForm1.ComboBox1Change(Sender: TObject); begin PageControl1.ActivePage := (ComboBox1.Items.Objects[ComboBox1.ItemIndex] as TTabSheet); end;

أخي delphi555 ضع هذا الموقع ضمن مواقعك المفضلة :

كود :

http://www.delphibasics.co.uk/

بالتوفيق.

[delphi555]

والله لم افهم شيئا
انا **** ان اظيف اليهم روابط انترنيت يعي اسماء منشدين ومحاضرين لكي يشتغلوا على الوندوز ميديا