Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: Name der aktiven Komponente ermitteln

  Alt 17. Nov 2011, 19:16
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
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat