Определение компонента, над которым находится фокус

← →
Глеб © (2004-07-02 02:29) [0]

Как мне определить компонент, над которым в жанный момент находится фокус ввода (в моём случае, мне нужно определить TEdit, который готов к вводу)?
Мну нужна какая-нибудь процедура, которая кидает "сфокусированный" компонент в объект класса TObject, TPersistent, TComponent и т. п. (или можно в TEdit)

Примечание: существует тривиальное решение - бегать по всем компонентам и смотреть у них Focused = true.
Но сложность такого алгоритма составляет O(N), где N = количество компонентов.
Для меня очень важно достать алгоритм сложностью O(1).

← →
Глеб © (2004-07-02 02:33) [1]

> в жанный момент

Извините, описка - В ДАННЫЙ МОМЕНТ!

← →
Petr V.Abramov (2004-07-02 02:40) [2]

Form.ActiveControl

← →
R © (2004-07-02 02:41) [3]

If ActiveControl is TEdit Then
TEdit(ActiveControl).Text:="Фокус-покус"

Спасибо всем!

Определение компонента, над которым находится фокус Найти похожие ветки