Как отследить переход фокуса в приложении

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Во всех странах мира люди хорошо знают и широко используют Windows, и только русские говорят, что он х##вый. Потому что только русские хорошо знают и широко используют это слово.

procedure TForm1.AppControlChange(Sender: TObject);

begin

if Sender is TScreen then

Caption := TScreen(Sender).ActiveForm.ActiveControl.name;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Screen.OnActiveControlChange := AppControlChange;

end;

{/codecitation}

Добавить комментарий