Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
[Çözüldü] Timer ile resim değiştirme
#1
Merhaba, 
Yaptığım bir uygulamanın Ana Formunda arka plan olarak image bileşeni ile resim kullandım. Resmin yolunu ve adını bir ini dosyasında tutuyorum Böylece kullanıcı istediği resim ile değiştirebiliyor. Şimdi benden istenen bu arkaplanın belli saniye aralıklarında değişmesi. Akla ilk gelen bir timer kullanarak image bileşenine sırayla yüklemek. Her resmin adresinide yine ini dosyasında tutmak. Fakat daha doğru ve kolay bir yolu vardır düşüncesinle sizlere danışmak istedim. Bunun için fikirlerinizi paylaşırsanız sevinirim.
Teşekürler
Cevapla
#2
Merhaba,
timer ile yapmak yerine thread ile yapman daha iyi olur diye düşünüyorum
Cevapla
#3
Evet ama form büyük ve resimde forma eş ise değişimlerde görüntü bozuluyor. Bir kaç bileşen gördüm free onları deniyorum
Cevapla
#4
iki tane image nesnesi kullanabilirsin,
visible olanı gösterirken diğerini invisible yapıp resim yüklersin, sonra da visible olanı invisible yapıp diğerini gösterirsin
döngü devam eder
Cevapla
#5
Şu şekilde çözdüm. Gayette güzel çalışıyor. Teşekürler

var
 Form1: TForm1;
 ImgPath: String;
 ImgIdx: Integer;
implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
if FileExists(imgPath+'image1.jpg')then Image1.Picture.LoadFromFile(imgPath + 'image1.jpg');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ImgPath:= ExtractFilePath(Application.exeName) + 'images\';
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(ImgIdx);
if (imgIdx <= 100) AND (FileExists(imgPath + 'image' + intToStr(imgIdx) + '.jpg')) then
Image1.Picture.LoadFromFile(imgPath + 'image' + intToStr(imgIdx) + '.jpg')
else
begin
imgIdx:= 1;
Image1.Picture.LoadFromFile(imgPath + 'image' + intToStr(imgIdx) + '.jpg')
end;
end;




Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  [ ÇÖZÜLDÜ ] RAD Studio Community Edition ? BY-HAYALET 3 167 11-09-2018, Saat: 10:20
Son Yorum: BY-HAYALET
  Resim üzerindeki nesnenin alanını hesaplama beklentili 5 435 29-08-2018, Saat: 17:53
Son Yorum: ssahinoglu
  Timer İçerisinde Thread yhackup 9 615 14-08-2018, Saat: 10:54
Son Yorum: Tuğrul HELVACI
  (Çözüldü) function kullanımı Dostk 3 199 24-07-2018, Saat: 14:54
Son Yorum: Dostk
Exclamation [ÇÖZÜLDÜ] Delphi EXE Resource TR Dil Sorunsalı mrmarman 6 326 12-07-2018, Saat: 11:09
Son Yorum: mrmarman



Konuyu Okuyanlar: 1 Ziyaretçi