benachrichtigungsbereichupdaten teil 2

[markus lemcke]

hi,

ich möchte bei einer bestimmten aktion im benachrichtigungsbereich ein<br> anderes programmsymbol. ich habe es so probiert:<br>

procedure TForm1.iconpruefen;<br>
begin
if chbeinrastenrechtsklick.Checked = true then begin<br>
ImageList1.GetIcon (1, Application.Icon);<br>
ImageList1.GetIcon (1, TrayIcon1.Icon);<br>
end else begin<br>
ImageList1.GetIcon (0, Application.Icon);<br>
ImageList1.GetIcon (0, TrayIcon1.Icon);<br>
end;<br>
RedrawWindow(application.handle, nil, 0, RDW_ALLCHILDREN or RDW_FRAME or RDW_UPDATENOW);<br>
end;<br>

wer hat eine bessere idee?

gruß

markus

[Mathias Simmack]

Du meinst da unten neben der Uhr, Markus?
Die TNA?
Ich habe keine Ahnung, wie <b>du</b> dein Icon da reinmachst. <b>Ich</b> nehme <u>keine</u> Komponente oder was auch immer, sondern schreibe den TNA-Code selbst. Und die Änderung des Symbols sieht dann bei mir so aus; beispielsweise:

<PRE>
var
dFlag : boolean;<br><br>
procedure TNA_modification;
const
szCmd: array[boolean]of string = ('RUNNING','STOPPED');
szTipp : array[boolean]of string = ('läuft','angehalten');
var
aNID : TNotifyIconData;
begin
aNID.cbSize := sizeof(TNotifyIconData);
aNID.Wnd := aWindow;
aNID.uID := MssngrTaskbarId;
aNID.uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP;
aNID.uCallbackMessage := WM_PrivateTNA;
aNID.hIcon := LoadIcon(hInstance,pchar(szCmd[dFlag]));
StrPCopy(aNID.szTip,szTipp[dFlag]);<br>
//
// modify
//
Shell_NotifyIcon(NIM_MODIFY, @aNID);
end;
</PRE>

So geht das bei tadellos, wunderbar, großartig ... )<br><br>
Mathias

[markus lemcke]

hi mathias,

ich glaube ich muss ein objekt machen ticon!!
aber deinenwn code merke ich mir auch mal!!

danke!

gruß

marku