استدعاء صور على الفورم

السلام عليكم

شوف هذا الكمبوننت والمثال اللي معاة :

http://www.delphiarea.com/products/picshow

هذا المثال فية اكثر مما طلبت ... مؤثرات واشياء جميلة

وان اردت طرق اخرى بدون الأعتماد على ادوات خارجية راجع الأمثلة

الموجودة مع الدلفي ففيها مثال لعرض الصور يحتاج تطوير بسيط لما تريد .

بالإضافة إلى كلام أخي 2/11/2004

أولا : عليك معرفة كل الملفات الموجوده في المجلد ,

هذه شفرة بسيطة تمكنك من ذلك عدلها :

procedure TForm1.Button1Click(Sender: TObject);
var
    SR : TSearchRec;
    S,sFilePattern : String;

Begin
sFilePattern := ExtractFileDir(ParamStr(0)) + '\*.*';
S := '';
if FindFirst(sFilePattern,faAnyFile,SR) = 0 then
    Begin

    while FindNext(sr) = 0 do
               memo1.Lines.Add(SR.Name);
         
    End;

End;

ثم عليك إختيار ملفات الصور منها فقط (ضمن هذة الفكره هناك ) والتي يقدر برنامجك على فتحها , ووضعها في لائحة (أي شيء مصفوفه List أو ListBox , لو حتى Memo)

وتقوم بإظهار هذة الصور حسب متحول رقمي يدل على ترتيب الصورة Index

مثلا

memo1.lines

سيعطيك إسم ومسار الملف ذو الرقم i , وكل ماضغطت الزر يزيد i بمقدار 1 , ويفتح الملف التالي وهكذا ..

أتمنى لك التوفيق

السلام عليكم ،،،

الكمبوننت جميل جدا

والموقع رائع جدا

شكر جزيلا ،،