hi,
ich hab schon alles dazu im forum dursucht, und auch so einige lösungen gefunden, nur gehts bei mir net!
ich hab vor die imagelist zur laufzeit zu löschen und zu füllen, je nachdem welche objekte zur auswahl stehen sollen!
dazu habe ich vor beim datei-durchsuchen die imagelist zu füllen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure suchdateien(maske:string); var search:TSearchRec;
pfad, typ:string;
count:byte;
begin
count:=0; form_haupt.imgl_bilder.Items.Clear; typ:=ExtractFileName(maske);
pfad:=ExtractFilePath(maske);
if pfad[length(pfad)]<>'\' then
pfad:=pfad+'\';
if FindFirst(maske,$3F, search)=0 then
repeat
form_objekte.filelb_bilder.Items.Add(search.Name);
form_haupt.imgl_bilder.Items.Add; form_haupt.imgl_bilder.Items[count].Picture.LoadFromFile(pfad+search.Name);
inc(count); until FindNext(search)<>0;
FindClose(search);
end; |
tja das müsste es nach meinen recherchen eigentlich schon sein, aber es funktioniert nicht! bzw. der fehler liegt auf einmal an einer stelle die vorher wunderbar geklappt hat (weiss net wo er is)!
ich habe nämlich bevor ich das mit der veränderung zur laufzeit machen wollte der imagelist zu testzwecken 2-3 objekte zugewiesen. das aus dem grund, da ich testen wollte ob ich objekte per mausklick plazieren kann. das klappt auch, und daran habe ich auch nix mehr geändert! doch wenn ich nun den kommentierten teil (änderungen zur laufzeit) einfüge, dann erscheinen die objekte nicht mehr so wie vorher, ich seh sie einfach nicht mehr!
woran kann das nun liegen??
