Filelistbox button

[CiTiZEN]

slm arkadaşlar benim filelistbox ile alakalı bir sorunum war

Kod: Tümünü seç

begin
if key=ord(13) then
begin
preview.Picture.LoadFromFile(filelistbox1.items[i]);
Edit1.Text:=FileListBox1.FileName;
end;

bu kodu onkeydown da kullanınca işe yarıyor fakat bir image nesnesinin onclick inde kullanınca işe yaramıyor

Kod: Tümünü seç

procedure TForm1.image1Click(Sender: TObject);
var i:integer;
begin
i:=filelistbox1.ItemIndex;
preview.Picture.LoadFromFile(filelistbox1.items[i]);
Edit1.Text:=FileListBox1.FileName;
end;

yapmam gereken extra bir şey daha mı var veya kodlar da hata mı var yardımlarınız için tşkler.

[Battosai]

Olmayan nedir? Hangi hatayı veriyor...Filelistboxda şeçili item olmamasından çalışmıyor olabilir...

[CiTiZEN]

hata vermiyor narmalde ama liste boş olunca image bulunamadı dior fakat normalde seçip bastıgım zaman ise hiçbir hareket wermiyor.

[sabanakman]

Liste kutularında bir eleman seçili değilse ItemIndex özelliği -1 değeri verir. Yani filelistbox1.ItemIndex değer >=0 ise kodların çalışmalı.

[CiTiZEN]

hocam boyle yaptıgımdada bi resimde kalıo buyrun kod

Kod: Tümünü seç

var i:integer;
begin
filelistbox1.ItemIndex:=0;
i:=filelistbox1.ItemIndex;
preview.Picture.LoadFromFile(filelistbox1.items[i]);

[sabanakman]

filelistbox1.ItemIndex:=0;

Şeklinde ilk elemana atama yaparsan bu tabiki ilk resmi gösterecek. Kullanıncının yaptığı seçimi değiştirmek yerine sıfıra büyük eşitmi mi kontrolü etmek gerekmez mi

[CiTiZEN]

dogru soluosnz hocam ama oyle yaptığım zamanda saçma bi hata alıyorum

Kod: Tümünü seç

filelistbox1.ItemIndex>=0;
i:=filelistbox1.ItemIndex;
preview.Picture.LoadFromFile(filelistbox1.items[i]);
Edit1.Text:=FileListBox1.FileName;
end;

hata ise
Statement expected, but expression of type 'Boolean' found
bu hata ile yaptıgım ne alaka bulamadım yanlış mı yazıyorum bazı şeyleri

[Battosai]

filelistbox1.ItemIndex>=0;

CiTiZEN bunu böyle kullanırsan alırsın tabi hatayı....
if filelistbox1.ItemIndex>-1 then
begin
..........
end;
şeklinde olacak....

[sabanakman]

Kod: Tümünü seç

i:=filelistbox1.ItemIndex;
if i>=0 then begin
  preview.Picture.LoadFromFile(filelistbox1.items[i]);
  Edit1.Text:=FileListBox1.FileName;
end else begin
  preview.Picture:=nil;
  Edit1.Text:='';
end;

[CiTiZEN]

Hocam çok saolun ama olmadı dersem benı vururmusunuz
filelistbox dan bir bir nesne seçiyorum butana tıklıyorum ama ne iler ine geri gidio olağan resimde takılıp kalıo tıkladıkca artmıo da eksilmioda