image ve imagelist bağlantısı yardım

[bjk_serco]

Delphide listboxtan bi konu seçtiğimde imageye imagelistten seçtiğim resim koyulmasını istiorumm ama bi türlü yapamadımm acil yardımlarınızı bekliorum

[AriSoft]

Nerde takıldıysan söyle de daha güzel yardımcı olayım yani nesini yapamadın.

[bjk_serco]

aslında tümüyle yapamadım, şöyle oluyor ki elimde listbox var ve listboxtan sçtiğim konuyu memoya yazıo orası tamam, ama konuyla ilgili imagede bi resim istiorum ki bunuda image listten alıcak ikisiyle ilgili bağlantıyı kuramadım ? inş sorunumu anlatabilmişimdir.....

[AriSoft]

İmagelist değil öncelikle image yerleştir yalnız benim anladığım şu bak şimdi listbox dan mesela İstanbul seçildi hemen yanında biraz büyükçe Sultanahmet Camii resmi çıkacak yani bu bir örnekti eğer bunu yapmak istiyorsan öncelikle kaç tane resim eklemek istiyorsan o kadar image koy.Sonra Hepsinin Visible'ına false değerini ver ister kodla istersen de toolboxla(properties) ile kodla vereceksen
image1.visible := False; olarak yapabilirsin Diğerlerini de aynı şekilde sonra.Örneğin image1 listbox1 işaretlenince gözükmesini istiyoruz.if listbox1.ItemIndex[0] then image1.visible := True; Diyoruz.Yapmak istediğin şey farklı ise biraz daha açıklayıcı anlatırsan daha güzel yardımcı olmaya çalışırım.

[bjk_serco]

yukardaki kod işime yaradı saol 8-)

bu aşağıdaki kodlar button1 ye ait ama bu koddan giderek button2 yede işlem yaptırmak istiyorum fakat button1 ile button2 arasındaki farklılık kodunu bulamadım.... nasıl yapabilirimm çok çok acilllll ödev için lazım .....

procedure TForm1.ListBox1Click(Sender: TObject);
begin
memo1.Lines.Clear;

if listbox1.Selected [strtoint(f1)] then
memo1.Lines.LoadFromFile('mitoz.txt');
if listbox1.Selected [strtoint(f2)] then
memo1.Lines.LoadFromFile('kalıtım.txt');
if listbox1.Selected [strtoint(f3)] then
memo1.Lines.LoadFromFile('mayoz.txt');
if listbox1.Selected [strtoint(f4)] then
memo1.Lines.LoadFromFile('dnavegenetikkod.txt');
if listbox1.Selected [strtoint(f5)] then
memo1.Lines.LoadFromFile('adaptasyonveevrim.txt');
if listbox1.Selected [strtoint(f6)] then
memo1.Lines.LoadFromFile('basıncakuvveetnedenolur.txt');

end;