Главная страница
    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
1-82216
Fantom_
2003-09-12 12:22
2003.09.25
Как в Edit выровнять текст по центру?


3-82111
leonid-asup
2003-09-04 17:59
2003.09.25
Как сделать возможность только вібора из DBComboBox без ввода


3-82043
Alik$
2003-09-03 10:19
2003.09.25
СтатусБар как его инициализировать!!


7-82532
Dionis
2003-07-14 16:05
2003.09.25
Опять CDROM


1-82200
Vinter
2003-09-12 14:38
2003.09.25
Popup





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