Aktualisieren von Icons, wo ist der Fehler?

**FriFra**

Ich muss in meinem Programm relativ häufig das TNA_Icon und ein entspr. Bild auf de Programmoberfläche aktualisieren. Die entspr. Icons habe ich in Resourcen und weise diese einer globalen TNA_Icon Variablen zu. Zwar steigt der Speicherverbrauch nur langsam, aber nach 2-3 Stunden mit ca. 10'000 Aktualisierungen bekommt das Programm Probleme seine Controls korrekt zu zeichnen, bzw. es reagiert auf überhaupt nichts mehr...

Wenn ich den entspr. Codeabschnit deaktiviere, dann läuft alles stabil

zusammenfalten · markieren

Delphi-Quellcode:

			var

  TNA_Icon: TIcon //globale Icon Variable

  sI: string //Name des verwendeten Icons

...

      { TNA-Icon }

      try

        RS := TResourceStream.Create(0, sI, RT_RCDATA);

        RS.Position := 0;

        oldIcon := TNA_Icon.ReleaseHandle;

        if oldIcon <> 0 then

          DestroyIcon(TNA_Icon.Handle);

        TNA_Icon.LoadFromStream(RS);

        {DestroyIcon(IconData.hIcon);}

        IconData.hIcon := TNA_Icon.Handle;

        Image1.Picture.Icon.Handle := TNA_Icon.Handle;

      finally

        RS.Free;

      end;

...

Aktualisieren von Icons, wo ist der Fehler?

Aktualisieren von Icons, wo ist der Fehler?

Forumregeln