Скачать: CL | DM;

поиск 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]

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

---

← →
Billy ©   (2003-09-13 00:00) [6]

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

---

← →
mrcat ©   (2003-09-13 00:03) [7]

Vik_mix (12.09.03 23:28)

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c