AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Probleme mit der Änderung des TNA-Icons

Ein Thema von ManuMF · begonnen am 14. Jul 2005 · letzter Beitrag vom 15. Jul 2005
Antwort Antwort
Benutzerbild von ManuMF
ManuMF

Registriert seit: 11. Jul 2005
1.016 Beiträge
 
Delphi 6 Personal
 
#1

Probleme mit der Änderung des TNA-Icons

  Alt 14. Jul 2005, 14:57
Hallo,

ich habe ein Problem, wenn mein Programm das TNA-Icon ändern soll: Es erscheint die Meldung "[X] Zugriffsverletzung bei Adresse..."

Der Code (gekürzt auf die wesentlichen Teile):
Delphi-Quellcode:

var IASymbol : TIcon; // Global, da das in mehreren Prozeduren benötigt wird

procedure TaskBarAktualisieren;
  var tnid: TNotifyIconData;
begin
  with tnid do begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := PWRT_ClientForm.Handle;
    uID := 1;
    uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
    uCallbackMessage := WM_TASKBAREVENT;
    if (ServerAktiv) then
      hIcon := Application.Icon.Handle // Hier wird geprüft, ob das Standard-Icon (kein Problem)...
    else
      hIcon := IASymbol.Handle; // ...oder das 2. Icon verwendet werden soll (Fehlermeldung)
  end;
  StrCopy(tnid.szTip, PChar(ClientCaption)); // ClientCaption => Die QuickInfo
  Shell_NotifyIcon(NIM_MODIFY, @tnid);
end;

procedure TPWRT_ClientForm.FormCreate(Sender: TObject);
begin
  IconListe.GetIcon(0, IASymbol); // Das Icon stammt aus einer ImageList
end;
(Es handelt sich um einen Client, auf dem eine Server-Komponente läuft, also nicht von den Namen verwirren lassen )

Danke,
Manu
  Mit Zitat antworten Zitat
scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#2

Re: Probleme mit der Änderung des TNA-Icons

  Alt 14. Jul 2005, 15:16
Vor dem GetIcon() fehlt ein
IASymbol := TIcon.Create; In TPWRT_ClientForm.FormDestroy musst du dann natürlich auch
FreeAndNil(IASymbol); einbauen.
  Mit Zitat antworten Zitat
Benutzerbild von ManuMF
ManuMF

Registriert seit: 11. Jul 2005
1.016 Beiträge
 
Delphi 6 Personal
 
#3

Re: Probleme mit der Änderung des TNA-Icons

  Alt 15. Jul 2005, 06:22
Danke!

Das hab ich vergessen...

Bin es nicht gewohnt, erst Create aufzurufen.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz