Hallo,
ein kleines Problem....
Mein Programm zur Überwachung der Plattengrössen legt sein Symbol beim Start in die Systray (neben die Uhr).
Nun soll sich dieses Symbol zur Laufzeit ändern. Wie stelle ich das an?
So kommt das Icon in die Systray:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| ....
var
NIM : TNotifyIconData;
....
procedure IcontoSystray;
begin
with NIM do
begin
cbSize := SizeOf (nIM);
Wnd := Handle;
uID := 0;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage := IC_CLICK;
hIcon := imagefehler.Picture.Icon.Handle; szTip := 'Hilfe';
end;
Shell_NotifyIcon(NIM_ADD, @NIM);
end; |
Und so dachte ich könnte ich es dann ändern:
Delphi-Quelltext
1:
| NIM.hIcon := imagefehler.Picture.Icon.Handle; |
Warum geht das nicht?
Ich habe hier im Forum zwar vieles über Systray und TNA gefunden, das Problem aber nicht!
Danke
Moderiert von 
Peter Lustig: Code- durch Delphi-Tags ersetzt
