imagelist de çalışma anında ikon eklenebilirmi...

[serkan]

Delphi canavarları hepinize hayırlı kodlar...
arkadaşlar bir network messenger tarzı program yapmayı planlıyorum..şöyle bikaç deneme yaptımda görsel olarak bir listview koyup kullanıcıları .ini dosyasında tutup.loadfromfile ile açmayı düşünüyorum.birde listviewde iconları 128x128 yapıp .bmp olarak kullanıcı resmi eklemelerini.tasarım anında yaptığımda problem yok güzel oluyor da program dağıtıldığında kullanıcılar kendi kullanıcı resimlerini değiştirebilir veya yeni ekleyebilirler.buda imagelist de yeni ikon eklemek demek ve bunun her açılışta son haliyle açması demek bınu nasıl yapabiliriz.dbimagelist nasıl bir fikir varmı böyle bişey..şimdiden teşekkürler...

[NewMember]

Hocam işini görürmü bilmem ama ben söylediğine benzer bir olayı main menü için runtime imageliste resim ekledim ve runtimeda menüye resim ekledim.Bu kodu kendine göre uyarlayabilirsin.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var MyIcon:TIcon;
begin
MyIcon:=TIcon.Create;
MyIcon.LoadFromFile('Deneme.ico');
ImageList1.InsertIcon(0,MyIcon);
MenuDeneme.ImageIndex:=0;
end;

Ben denemek için butona yazdım ama sen bu iconları sabit bir klasöre attırıp oradan formun create yordamında

Kod: Tümünü seç

ImageList1.InsertIcon(0,MyIcon);

bu kodları bir döngüyle icon sayısı kadar image index atayabilirsin.
Kolay gelsin.