رسالة لأخ frh

اخي العزيز محمد 111

ارجوا منك عندما تريد الرد ان تضعه داخل موضوعه ولاتقوم بكتابته في موضوع جديد

اما بالنسبة لجواب سؤالك فهو كالآتي :

قم بعمل مايلي

اولاً اكتب هذا الكود في امر حدث OnDropDown للكائن Combobox

Combobox1.Clear;
Table1.First;
while Not Table1.Eof do begin
Combobox1.Items.Add(Table1.fieldbyname('Empno').AsString+' : '+Table1.fieldbyname('LastName').AsString);
Table1.Next;
end;

وقم بكتابة هذا الكود في امر حدث OnClick للكائن Combobox

var
s:integer;
begin
s:=Combobox1.ItemIndex;
Combobox1.Items.Strings:=Copy(Combobox1.Items.Strings,pos(':',Combobox1.Items.Strings)+2,max_path);
Combobox1.ItemIndex:=s;

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

وطبعاً اذا كان هناك عندك اي ملاحظة او اي سؤال فلا تترد

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

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

شكرا لك أخي sum على هذه الخدمة الطيبة

واتمنى لك دوام التقدم.

وانا آسف بما تسبب في ازعاجكم بما صدر مني.