Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];

Вниз

поиск 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 вся ветка

Форум: "Основная";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.011 c
4-82565
Сергеич
2003-07-25 08:38
2003.09.25
Данные из другой программы


1-82314
AndB
2003-09-12 05:51
2003.09.25
uses Windows, Forms, Menus, ... частично?


1-82244
ilka
2003-09-08 18:10
2003.09.25
Создать компонент по имени его класса??


3-82086
paa
2003-09-05 12:05
2003.09.25
Генератор отчета PReport


3-82073
Centurion
2003-09-05 14:29
2003.09.25
Ошибка БД





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский