Applikáció aktivitásának figyelése

Top  Previous  Next

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;