Главная страница
    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.01 c
6-82369
Vintik
2003-07-26 15:32
2003.09.25
надо чтобы текст добавлялся виде HTML кода в TWebBrowser


14-82394
Vlad Oshin
2003-09-04 17:50
2003.09.25
Флейм. Сигареты легкие или тяжелые?


14-82478
Knight
2003-09-04 22:34
2003.09.25
Linux


6-82363
clim
2003-07-23 00:20
2003.09.25
connect function


3-82157
sashag
2003-09-03 15:07
2003.09.25
Backup БД Interbase





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский