Applikáció aktivitásának figyelése
Sokszor kérdés , hogy hogyan figyelhetem, hogy egy applikáció aktív, vagy nem aktív
private procedure xakk(var mmm:TwmSysCommand); message wm_activate; . . . procedure Tform1.xakk; begin if mmm.CmdType<>0 then application.Title:='Aktív' else application.Title:='Nem aktív'; end;