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

السلام عليكم
أنا قاعد أسوي برنامج يحفظ الصور ويعرضها عن طريق التحكم يالست بوكس
فوق تحت وعلى طاري حفظ الصور خليت الست بوكس تقرا من الريجستري
<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>[ تم تعديل الموضوع بواسطة   Moon Ray   يوم   16-06-2000]