Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

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
  Datasnap Türkçe karakter sorunu [Çözüldü] hakanharbeli 4 118 11-02-2018, Saat: 03:29
Son Yorum: hakanharbeli
  Kelime Değiştirme Paranoyaq 12 256 10-02-2018, Saat: 17:45
Son Yorum: SimaWB
Star ıdHTTP Post hakkında? [Çözüldü] Cyber 1 87 06-02-2018, Saat: 13:36
Son Yorum: Cyber
  Form create h.k (Çözüldü ) cinarbil 12 267 25-01-2018, Saat: 12:09
Son Yorum: cinarbil
  Wsdl Xml Importer(Çözüldü) yhackup 17 223 09-01-2018, Saat: 15:42
Son Yorum: yhackup



Konuyu Okuyanlar: 1 Ziyaretçi