Главная страница
    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
4-82553
II
2003-07-22 14:15
2003.09.25
Я поставил hook на WH_CALLWNDPROC. Как мне узнать от кокого окна


7-82524
Palex
2003-07-11 01:01
2003.09.25
(com-порты) Кто тормозит - я или винда?


14-82431
michael
2003-09-06 20:37
2003.09.25
Слыхал что ИБП сглаживает скачки напряжения.


14-82409
Knight
2003-09-04 03:58
2003.09.25
Dial-Up под Win2k


8-82339
dedushka
2003-06-01 21:00
2003.09.25
AVI





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