حقين الدلفي الدخول هنا ضروري حالة طارئة

[Moon Ray]

السلام عليكم
أنا قاعد أسوي برنامج يحفظ الصور ويعرضها عن طريق التحكم يالست بوكس
فوق تحت وعلى طاري حفظ الصور خليت الست بوكس تقرا من الريجستري
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
r := tregistry.create ;
r.RootKey := Hkey_local_machine;
r.OpenKey('\Software\image1',false);
r.GetValueNames(listbox1.items);
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>
وحدث إضافة الصور هو
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
r := tregistry.Create ;
r.RootKey := hkey_local_machine ;
r.OpenKey('\Software\Arabian Palce\image1',false);
r.WriteString(edit2.text,edit1.text);
form1.listbox1.items.add(edit2.text);
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>
وحدث عرض الصور خليته عندما يظغط على الست بوكس وهاهو
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
image1.picture.loadfromfile(r.readstring(listbox1.{the selected item}
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>
المشكلة هي أني ماقدرت أعوض عن {the selected item } بشي مالقيت كيف
ساعدوني البرنامج لازم أسلمه خلال أقل من أسبوع

hotpage@maktoob.com




[b]<small><small>[ تم تعديل الموضوع بواسطة &nbsp; Moon Ray &nbsp; يوم &nbsp; 16-06-2000]

[أبو ماجد الصارم]

لم أصل إلى هذه الدرجة من العلم أقول ما رأيك تأخذ عني دروس ديلفي

------------------
أبو ماجد الصارم
azzozhsn@hotmail.com