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

Вниз

Узнать имя активного компонента   Найти похожие ветки 

 
Сергей.   (2004-08-28 23:46) [0]

Мастера как узнать имя активного компонента (в фокусе)?
На формах есть много не стандартных компонентов.
Есть есть наследники от TCustomControl, TComponent.


 
GuAV ©   (2004-08-29 00:02) [1]


> TComponent.

только наследники TWinControl, а в частности TCustomControl могут получать фокус. потому что только у них есть окно. созданние визуальных компоентов от TComponent изврат, по крайней мере я такого не видел.


 
GuAV ©   (2004-08-29 00:06) [2]

А по сабжу, как мне преставляется, перебором controls рекурсивно.


 
Сергей.   (2004-08-29 00:06) [3]


> TComponent изврат, по крайней мере я такого не видел.

DevExpress library


 
GuAV ©   (2004-08-29 00:16) [4]


> > TComponent изврат, по крайней мере я такого не видел.
>
> DevExpress library

Ну тогда перебират Components

GetFocus() и искать такой Handle
или
TWinControl(Self).Focused

DevExpress library - про этих ничё не знаю. Их видимо обрабатывать отдельно.


 
jack128 ©   (2004-08-29 00:18) [5]

для TWinControl и наследников FindControl(GetFocus). всех остальных нужно индивидуально обрабатывать..


 
Сергей.   (2004-08-29 00:22) [6]

TWinControl(Application.Components[i]).Focused
Пишет Abstract Error .


 
GuAV ©   (2004-08-29 00:25) [7]


> Пишет Abstract Error .

Да, да
C:=Application.Components[i];
if C is TWinControl then
...
esle if C is TSomeDevExpressStuff then
...


 
jack128 ©   (2004-08-29 00:36) [8]

Сергей.   (29.08.04 0:22) [6]
TWinControl(Application.Components[i]).Focused
Пишет Abstract Error .

хе. Любопытно, кто это создает абстрактный компонент. Какого он класса?


 
Сергей.   (2004-08-29 00:45) [9]

TdxBarEdit = class(TdxBarWindowItem)

Hierarchy  

TdxBarWindowItem
 TdxBarItem
   TComponent
     TPersistent
       TObject


 
Сергей.   (2004-08-29 00:48) [10]


> Сергей.   (29.08.04 00:45) [9]


www.devexpress.com


 
GuAV ©   (2004-08-29 00:58) [11]

> Сергей.   (29.08.04 00:45) [9]

И этот прямо в Application вставлен? или error в чём то другом?


 
Petr V. Abramov ©   (2004-08-29 01:04) [12]

А Self.ActiveControl (если мы где-то в обработчике) не помогает?



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

Текущий архив: 2004.09.12;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.027 c
14-1093261320
onix
2004-08-23 15:42
2004.09.12
Русские буквы


1-1093829642
vovchik
2004-08-30 05:34
2004.09.12
Русская кодировка


9-1084898425
kas-t
2004-05-18 20:40
2004.09.12
Бесплатный движок...


8-1088146420
0rg
2004-06-25 10:53
2004.09.12
Синхронное проигрывание звука


14-1093100431
dzmitry[li]
2004-08-21 19:00
2004.09.12
Simens CF62