Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
listeleme
#1
Merhaba; foruma VertScrollBox içine Image ekledim alt, alt resimleri nasıl listeleye bilirim?


procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Img: TStrings;
begin
  Img := TStringList.Create;
  Img.Add('C:\Users\Aziz\Desktop\list\İmage\if_image_18350.png');
  Img.Add('C:\Users\Aziz\Desktop\list\İmage\Home Blue.png');
  for I := 0 to Img.Count - 1 do
  begin
    Image1.Bitmap.LoadFromFile(img[i]);
  end;
end;
Hayat bazen güzel olabiliyor.
Cevapla
#2
Merhaba.
Sanırım tek İMage nesnesi ile yapmak istemişsiniz.. O zaman nesnenin gesture özelliğini kullanarak loadbitmap yapmalısınız.

Başka yöntem yani genel kullanım ise: Image adeti kadar verticalscroolbox ın içine image create edip göstermektir.
WWW
Cevapla
#3
Merhaba,
Doğru anladıysam, birden fazla resmin bir scrollbox üzerine eklenmesi konusunda destek talebiniz var.

2018-01-24_13-06-24.png

var
  I: Integer;
 Img: TStrings;
begin
 Img := TStringList.Create;
 try
   Img.Add('D:\indir\a1.png');
   Img.Add('D:\indir\a2.png');
   Img.Add('D:\indir\a3.png');
   Img.Add('D:\indir\a4.png');
   for I := 0 to Img.Count - 1 do
   begin
     With TImage.Create(Nil) do
     begin
       Bitmap.LoadFromFile(img[i]);
       Align:=TAlignLayout.Top;
       Margins.Top:=5;
       Margins.Bottom:=5;
       Margins.Left:=5;
       Margins.Right:=5;
       Parent:=VertScrollBox1;
     end;
   end;
 finally
   Img.DisposeOf;
 end;

end;

Önemli Not: VertScrollBox ile bir işiniz kalmadığı anda, üzerine eklenmiş tüm nesneleri bir döngü ile yok edin.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#4
(24-01-2018, Saat: 13:12)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,
Doğru anladıysam, birden fazla resmin bir scrollbox üzerine eklenmesi konusunda destek talebiniz var.

2018-01-24_13-06-24.png

var
  I: Integer;
 Img: TStrings;
begin
 Img := TStringList.Create;
 try
   Img.Add('D:\indir\a1.png');
   Img.Add('D:\indir\a2.png');
   Img.Add('D:\indir\a3.png');
   Img.Add('D:\indir\a4.png');
   for I := 0 to Img.Count - 1 do
   begin
     With TImage.Create(Nil) do
     begin
       Bitmap.LoadFromFile(img[i]);
       Align:=TAlignLayout.Top;
       Margins.Top:=5;
       Margins.Bottom:=5;
       Margins.Left:=5;
       Margins.Right:=5;
       Parent:=VertScrollBox1;
     end;
   end;
 finally
   Img.DisposeOf;
 end;

end;

Önemli Not: VertScrollBox ile bir işiniz kalmadığı anda, üzerine eklenmiş tüm nesneleri bir döngü ile yok edin.
Çok teşekkür ederim. İhtiyacınız yok ama + rep verdim.
Hayat bazen güzel olabiliyor.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Resim Listeleme Paranoyaq 13 489 02-01-2018, Saat: 21:25
Son Yorum: Paranoyaq
  Listeleme Paranoyaq 14 842 15-05-2017, Saat: 10:09
Son Yorum: edo
  Fotoğraf Listeleme Paranoyaq 7 524 13-05-2017, Saat: 17:45
Son Yorum: Paranoyaq



Konuyu Okuyanlar: 2 Ziyaretçi