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
Exclamation [ÇÖZÜLDÜ] Delphi EXE Resource TR Dil Sorunsalı mrmarman 6 175 12-07-2018, Saat: 11:09
Son Yorum: mrmarman
  [ÇÖZÜLDÜ]-Tip Dönüşümü - [TXSDecimal > Float ) hi_selamlar 6 162 02-07-2018, Saat: 12:19
Son Yorum: hi_selamlar
  [ÇÖZÜLDÜ]-n11.com Api Bağlantısı hi_selamlar 3 159 29-06-2018, Saat: 14:46
Son Yorum: hi_selamlar
  [ÇÖZÜLDÜ]-Başka Uygulamadaki MDIChild Form Handle Alma hi_selamlar 9 221 29-06-2018, Saat: 09:52
Son Yorum: hi_selamlar
  sha512 Kodlama ve Kod Çözme [ÇÖZÜLDÜ] 3ddark 7 189 26-06-2018, Saat: 11:45
Son Yorum: adelphiforumz



Konuyu Okuyanlar: 1 Ziyaretçi