Имя компонента

← →
den74 (2004-10-09 01:07) [0]

Подскажите как программно узнать имя компонент на котором установлен focus, и записать его в переменную string.

спасибо

← →
programania © (2004-10-09 01:28) [1]

var I: Integer; Temp: TComponent; s:string; begin with form1 do for I :=0 to ComponentCount - 1 do begin Temp := Components[I]; if Temp is tButton then if tButton(Temp).focused then s:=temp.name; //и т.д. для всех типов что есть end;

← →
den74 (2004-10-09 01:38) [2]

Спасибо, разобрался

← →
НовичОк © (2004-10-09 01:42) [3]

Это легко, но что делать если надо узнать имя компонента в другом приложении?

← →
GanibalLector © (2004-10-09 01:57) [4]

но что делать если надо узнать имя компонента в другом приложении?

GetClassName

← →
Германн © (2004-10-09 02:54) [5]

2 НовичОк © (09.10.04 01:42) [3]
Не забывай, что в в другом приложении может не быть "компонентов" вообще!

Компонентов вообще нет, это обертки... см. [4] GanibalLector © (09.10.04 01:57) ы?

обычно (если по сабжу) делают так:

var P: TPoint; H: THandle; Buffer: array [0..255] of Char; begin GetCursorPos(P); H:= WindowFromPoint(P); GetClassName(H, Buffer, SizeOf(Buffer)); Label1.Caption := "ClassName - " + StrPas(Buffer);

А, тут же фокус нужен, тогда GetFocus а не WindowFromPoint, но почитай хелп по функции и обрати внимание на потоки...

> [0], [1], [2]
Screen.ActiveControl.Name
:о)

Имя компонента Найти похожие ветки