يا أخوة اريد حل مشكلة في ال combobox

اهلاً وسهلاً بك اخي محمد 111

بالنسبة لمشكلتك فاليك حلها

اولاً ضع هذا الكود في حدث OnDropDown للكائن Combobox

var

s:integer;

begin

Combobox1.ItemIndex:=-1;

Combobox1.Items:=Screen.Fonts;

for s:=0 to Combobox1.Items.Count-1 do

Combobox1.Items.Strings:=Combobox1.Items.Strings+' ( Size : 10 )';

وقم بوضع هذا الأمر في حدث OnClick للكائن Combobox

var

s:integer;

begin

s:=Combobox1.ItemIndex;

Combobox1.Items.Strings:=Copy(Combobox1.Items.Strings,0,pos('(',Combobox1.Items.Strings)-2);

Combobox1.ItemIndex:=s;

ارجوا ان يكون هو مااردت

وتقبل اطيب تحياتي اخوك SUM

السلام عليكم ورحمة الله وبكاته

شكرا على هذه الخدمة وبارك الله فيك .

ولكن الحل الذي طرحته مبدئيا هو الذي اردته

ولكن اريد ان اضع items من عندي على سبيل المثال

اسم الموظف وبجانبه رقمه وهذا من جدول Employee الموجود في الدلفي نفسها فعند الاختيار يظهر اسمه فقط كما في المثال السابق في الخط وحجمه كما اسلفت وشكرا لك .

فالرجاء ان تساعدني في هذه المشكلة التي كادت ان تجنني .