TrayIcon og metoder
Jeg er ikke helt så god til hele den object orienterede del af Delphi.Jeg har et program som kører som en service så der er ikke nogen form tilknyttet men programmet benytter class TService. Til denne service har jeg 2 timer events. I programmet har jeg en del funktioner og procedurer som ikke er tilknyttet en class.
Jeg har tilføjet et TrayIcon til mit program og nu er problemet at jeg gerne vil opdatere ballonhint når der opstår en fejl. Det kan jeg fint gøre indenfor de 2 timer events men jeg kan ikke i de funktioner er ikke er tilknyttet en class.
F.eks. har jeg proceduren
procedure DebugMSG(msglevel: integer; debug: boolean; s,logfilename: string);
Denne kaldes mange gange i de 2 timer events. Hvis msglevel er error vil jeg gerne opdatere TrayIcon med fejlmeddelelsen og vise denne.
Hvordan skal jeg tilrette mit program så jeg kan gøre dette? Istedet for at tilføje linierne for opdatering af TrayIcon efter hvert eneste kald af DebugMSG (hvilket jo vil være tåbeligt og spild).
