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

Вниз

Если выбран (focus) edit, то...   Найти похожие ветки 

 
Вопрос   (2004-07-25 18:43) [0]

Такой вопрос:
У меня на форме несколько элементов (edit"ов). Нужно сделать условный оператор
if (выбран любой edit на форме) then
...
else
...

Как проверить на чём в данный момент фокус? Неужели пробегать все элементы на форме и проверять - выбран он (выделен) или нет?


 
Anatoly Podgoretsky ©   (2004-07-25 18:50) [1]

За пару секунд по справке находится, что это ActiveControl


 
Вопрос   (2004-07-25 18:51) [2]

если уметь искать или знать хоть что искать:) Ладно, теперь есть ключевое слово. Спасибо, пошёл смотреть. Если будут вопросы - я сюда ещё загляну.


 
Вопрос   (2004-07-25 19:02) [3]

>>За пару секунд по справке находится, что это ActiveControl"
Да, находится... Вот что: "Specifies the control that has focus on the form."
И примерчик:
"procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Interval := 100;
 if ActiveControl <> nil then
   ActiveControl.Left := ActiveControl.Left + 1;
end;"

Но как это может помочь именно моей проблеме?


 
Anatoly Podgoretsky ©   (2004-07-25 19:27) [4]

Вопрос   (25.07.04 18:51) [2]
Есть еще умение просматривать список


 
Вопрос   (2004-07-25 19:30) [5]

? Чуть по подробнее если можно. Дело в том, что я не профессиональный программер... так - чуть-чуть.

поэтому конкретный пример был бы очень кстати....


 
P.N.P. ©   (2004-07-25 19:40) [6]

if ActiveControl is TEdit then


 
Вопрос   (2004-07-25 19:47) [7]

вот спасибо доброму человеку! то, что нужно, по-моему.

Простите за моё чайничество. Надеюсь, не много времени отобрал.



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

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

Наверх




Память: 0.45 MB
Время: 0.043 c
3-1089907596
carmen
2004-07-15 20:06
2004.08.08
Как переменую типа Дата разложить на день, месяц и год


14-1090219157
Nous Mellon
2004-07-19 10:39
2004.08.08
Осваиваем интернетъ


1-1090700722
New Neon
2004-07-25 00:25
2004.08.08
Самоуничтожение программы


8-1085227370
ПсихЪ_клон
2004-05-22 16:02
2004.08.08
Поключение функции из C++ DLL в Delphi (DirectDraw Alpha Blendin)


6-1086523457
lena19
2004-06-06 16:04
2004.08.08
установка и разрыв соединения





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