Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.044 c