danke für die Antworten euch allen, ich habe nun dies gemacht:
jedesmal wenn ich auf meine Imageliste auf dem fdm_fkal_ico zugreife, lade ich diese neu mit:
Delphi-Quellcode:
procedure TDM_FKAL_ICONS.DataModuleCreate(Sender: TObject);
begin
Laden;
end;
//**************************************************
procedure TDM_FKAL_ICONS.Laden;
var
FS : TFileStream;
Filename : String;
AppPath : String;
begin
AppPath:=ExtractFilePath(ParamStr(0));
AppPath:=IncludeTrailingBackSlash(AppPath);
Filename:=AppPath+'Imageliste.iml';
FS:=TFileStream.Create(Filename,fmOpenRead);
Try
FS.ReadComponent(Imageliste1);
Finally
FS.Free;
end;
end;
//***************************************************
beim Freigeben des DM mache ich dies:
procedure TDM_FKAL_ICONS.DataModuleDestroy(Sender: TObject);
begin
Speichern;
end;
procedure TDM_FKAL_ICONS.Speichern;
var
FS : TFileStream;
Filename : String;
AppPath : String;
begin
AppPath:=ExtractFilePath(ParamStr(0));
AppPath:=IncludeTrailingBackSlash(AppPath);
Filename:=AppPath+'Imageliste.iml';
FS:=TFileStream.Create(Filename,fmCreate);
Try
FS.WriteComponent(Send_lad);
Finally
FS.Free;
end;
end;
somit ist meine liste immer abgespeichert.
und dann habe ich das mit dem Hinzufügen so gelöst, dass ich nach dem "Hinzufügen" des Bitmap auf dem FO_ICONS sage:
fdm_FKAL_ICO.Speichern
[edit=sakura] [delphi]-Tags. Mfg, sakura[/edit]