Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.08;
Скачать: CL | DM;

Вниз

Если выбран (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.035 c
3-1089697360
Nero
2004-07-13 09:42
2004.08.08
Создание БД


6-1086783090
Orion2
2004-06-09 16:11
2004.08.08
IE


14-1090165889
вразлет
2004-07-18 19:51
2004.08.08
Доклад ООН о развитии человека за 2004 год


4-1088535875
Albert
2004-06-29 23:04
2004.08.08
Системный трей


9-1082144201
Shopot
2004-04-16 23:36
2004.08.08
Биллиард.