Во всех странах мира люди хорошо знают и широко используют Windows, и только русские говорят, что он х##вый. Потому что только русские хорошо знают и широко используют это слово.
procedure TForm1.AppControlChange(Sender: TObject);
beginif Sender is TScreen then
Caption := TScreen(Sender).ActiveForm.ActiveControl.name;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.OnActiveControlChange := AppControlChange;
end;
Статья Как отследить переход фокуса в приложении раздела Программа и Интерфейс Приложение своё может быть полезна для разработчиков на Delphi и FreePascal.
