نمایش چندین عکس توسط لیست باکس

[bahar_frisky]

سلام

من تازه با دلفی شروع کردم
لطفا راهنماییم کنید چه جوری میتونم مثلا 40 تا image رو با لیست باکس نمایش بدم مثلا وقتی روی آیتم "پایان راه اصلی" کلیک میکنم تصویرش رو نمایش بده , وقتی لیست باکس رو قرار میدم item height برابر 13 است و 40 تا آیتم رو هنگام اجرا خطا می گیره یعنی اجرا می کنه ولی وقتی روی آیتم کلیک میکنم ارور میده , ولی وقتی 13 آیتم رو میگذارم 13 تا عکس رو اجرا میکنه

ممنون میشم راهنماییم کنید .

بعد یک سوال دیگه هم داشتم توی vb لیست باکس ها خواص Data item و list دارند و image ها خاصیت index دارند , که هنگام کد نویسی راحت میشه با چند خط کد اجرا شه برنامه , توی دلفی هم هست ؟
برای همین 13 تا عکس کلی دستور با if شد :گریه: چه برسه به 40 تا عکس ....

[hojjatcroos]

سلام دوست عزیز ابتدا یک دکمه یک List Box یک OpenPictureDialog1 یک Image1 و یک Timer بر روی فرم قرار دهید و مقدار Interval تایمر را 1 کنید و کدهای زیرا را کپی کنید


procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute=true then
ListBox1.Items.Add(OpenPictureDialog1.FileName);
Image1.Picture.LoadFromFile(OpenPictureDialog1.Fil eName)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
s:string;
i:Integer;
begin
for i:=0 to ListBox1.ItemIndex do
Image1.Picture.LoadFromFile(ListBox1.Items.Strings[i])
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;