поиск Edit-а

← →
Vik_mix (2003-09-12 23:28) [0]

Мастера , помогите пожалуйста !
Вот кусок кода :
for i:= 1 to ComponentCount do
begin
if Components[i-1] is TEdit then
with Components[i-1] as TEdit do if ( фокус ввода на этом Edit-е ) then Text:=...
end;

то есть как определить, находится ли фокус ввода на искомом Edit-е ?
Буду очень благодарен!

← →
mrcat © (2003-09-12 23:31) [1]

Focused ?

← →
Sam Stone © (2003-09-12 23:42) [2]

Если TEdit один на форме,то
if Components[i-1] is TEdit then
if TEdit(Components[i-1]).focused then TEdit(Components[i-1]).text:="Уря!!!"

← →
Vik_mix (2003-09-12 23:45) [3]

Вобщем мне нужно вывести в активный Edit (т.е. в котором в данный момент мигает курсор ) некую надпись, а Edit-ов на форме куча, вот я и отбираю подходящий мне ...

← →
Vik_mix (2003-09-12 23:46) [4]

Все, догнал ...

← →
Vik_mix (2003-09-12 23:57) [5]

Не, всё равно не канает, прога вылетает с ошибкой!

Попробуй
for i:=0 to ComponentCount-1
компоненты нумеруются от 0, компонента с номером ComponentCount просто не существует.

Vik_mix (12.09.03 23:28)

код, полностью

← →
_dima_ (2003-09-13 07:10) [8]

Не, так как вы это задумали сделать не получиться, т.к для вывода некой надписи в активный Edit ты стопудовонажимаешь на какой-нибудь кнопарь и тем самым переводишь фокус на него.
Используй событие Edit OnEnter, запоминай его имя или что-то еще, и от него пляши.

поиск Edit-а Найти похожие ветки