Есть ли метод оперделения какой контрол в фокусе

← →
Делфиец (2010-01-16 05:35) [0]

Принципе я могу перебрать все контролы на форме и проверить каждый является ли он в фокусе, но вот подумал в друг есть метод о котором я не знаю, который делает то же самое.

← →
Ололо (2010-01-16 08:08) [1]

CanFocus?

другого помоему нет

← →
oldman © (2010-01-16 10:29) [2]

Никак не могу придумать задачу, для решения которой ЭТО понадобится...

← →
TIF © (2010-01-16 11:14) [3]

> придумать задачу, для решения которой ЭТО понадобится...

Может отображение подсказки около контрола, который находится в фокусе?

← →
oldman © (2010-01-16 11:20) [4]

> TIF © (16.01.10 11:14) [3]
> Может отображение подсказки около контрола, который находится
> в фокусе?

При получении фокуса контрол передает функции подсказки свои координаты, функция выводит подсказку. Поиск не нужен.

← →
Делфиец (2010-01-16 11:22) [5]

> oldman © (16.01.10 10:29) [2]
> Никак не могу придумать задачу, для решения которой ЭТО
> понадобится...

"Элементарно просто др. Ватсон" на форме много контролов для ввода, после нажатия Enter надо перейти на соседний контрол ввода, но на каждый контрол писать процедуру неохота. У формы есть обработчик onFormKeyPress черезнего ловим нажатие Enter if Key = #13 then у всей формы, осталось дело за малым узнать только какой контрол в фокусе и передать фокус другому контролу. Думаю, что такой-нибудь метод function GetFocusControl: TObect; не помешал бы.

← →
turbouser © (2010-01-16 11:24) [6]

Хм.. ActiveControl?

← →
oldman © (2010-01-16 11:29) [7]

> Делфиец (16.01.10 11:22) [5]

Правильно выставить их в списке и все.
По Tab они правильно перескакивают?
Если да, подмени Tab Ентером.

← →
turbouser © (2010-01-16 11:35) [8]

> Делфиец (16.01.10 11:22) [5]
>
>

SelectNext(ActiveControl,true,true)

← →
Leonid Troyanovsky © (2010-01-16 12:28) [9]

> Делфиец (16.01.10 11:22) [5]

> после нажатия Enter надо перейти на соседний контрол ввода

Не надо извращений, жми Tab.

--
Regards, LVT.

> Не надо извращений, жми Tab.

ну почему сразу извращение? Переход по Enter очень удобен при заполнении множества полей. Получается похоже на таблицу Excel

← →
Делфиец (2010-01-16 13:15) [11]

← →
Делфиец (2010-01-16 13:25) [12]

Можно и по Tab, но на форме разные контролы TEdit, TbitBtn, TCmboBox табом неудобно, так ка нужно пропускать кучу контролов, которые не нужны для ввода, а исключить их вообще из TabStop тоже нехорошо. так что переход по "интеру" самое то.

> Делфиец (16.01.2010 05:35:00) [0]

Естественно есть, но только не метод, а свойство ActiveControl

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