aktive Komponenten anzeigen lassen

[Stevie]

Du musst eine Funktion überschreiben:

Delphi-Quellcode:

interface

type
  TForm1 = class(TForm)
    Label1: TLabel;
    ...
  public
    function SetFocusedControl(Control: TWinControl): Boolean; override;
  end;

implementation

function TForm1.SetFocusedControl(Control: TWinControl): Boolean;
begin
  Result := inherited SetFocusedControl(Control);
  Label1.Caption := Self.ActiveControl.Name; 
end;