Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Узнать имя активного компонента [D7]

Сергей. © (2004-08-28 23:46:00)
Мастера как узнать имя активного компонента (в фокусе)?
На формах есть много не стандартных компонентов.
Есть есть наследники от TCustomControl, TComponent.

Petr V. Abramov (2004-08-29 01:04:00) [1]
А Self.ActiveControl (если мы где-то в обработчике) не помогает?

GuAV (2004-08-29 00:58:00) [2]
> Сергей. (29.08.04 00:45) [9]

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

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

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

www.devexpress.com

Сергей. (2004-08-29 00:45:00) [4]
TdxBarEdit = class(TdxBarWindowItem)

Hierarchy

TdxBarWindowItem
TdxBarItem
TComponent
TPersistent
TObject

jack128 (2004-08-29 00:36:00) [5]
Сергей. (29.08.04 0:22) [6]
TWinControl(Application.Components[i]).Focused
Пишет Abstract Error .
хе. Любопытно, кто это создает абстрактный компонент. Какого он класса?

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

> Пишет Abstract Error .

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

Сергей. (2004-08-29 00:22:00) [7]
TWinControl(Application.Components[i]).Focused
Пишет Abstract Error .

jack128 (2004-08-29 00:18:00) [8]
для TWinControl и наследников FindControl(GetFocus). всех остальных нужно индивидуально обрабатывать..

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

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

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

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

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

GuAV (2004-08-29 00:06:00) [10]
А по сабжу, как мне преставляется, перебором controls рекурсивно.

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

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

DevExpress library

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

> TComponent.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »