Name der aktiven Komponente ermitteln

[ThoPos]

Hallo Zusammen,

ich benötige für eine Menüfunktion den Namen des aktiven Controls in meiner Form.

Ich habe folgenden Lösungsansatz:

Delphi-Quellcode:

var
  s  : String;
begin
  s := TControl(FindControl(GetFocus)).Name;

Funktioniert eigentlich prima, nur halt bei TComboBox nicht.

Meine Suche im Netz ergab, daß auch andere vor diesem Problem stehen bzw. standen. Aber leider keine Lösung ...

Kann mir einer von Euch eine Lösung nennen?

Gruß
Thomas

[Uwe Raabe]

Was ist denn mit ActiveControl?

[ThoPos]

Danke für den Tipp. Das aktuelle Problem wäre damit gelöst.
Allerdings ist meine Wissensgier geweckt worden ...

Es wäre schon schön, zu wissen, wie man über Getfocus zum Namen der ComboBox komm. Kennt einer den Weg?

Gruß aus Köln
Thomas

[Bummi]

Mit GetFocus bekommst Du eine Fensterhandle zurück, das ist in diesem Fall aber nicht das Handle der Combobox, sondern eines "internen" Windowshandles

Delphi-Quellcode:

var
  s : String;
  h:HWND;
begin
  SetLength(s,255);
  h := GetFocus;
  GetClassName(h, @s[1], Length(s));
  Caption := s;
end;

bei einem normalen Edit bekommst Du TEdit bei der Combobox Edit