aktive Komponenten anzeigen lassen

[grunge]

Hallo Leute,
ich habe eine Form mit meheren unterschiedlichen Komponenten und möchte mir nun die gerade aktive
Komponente in z. B. einem Lablefeld mit deren Namen anzeigen lassen.

?????? :wall:

[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;

[shmia]

Es gibt keine aktiven Komponenten, sondern pro Formular nur ein Steuerelement (=control), dass den Fokus hat.
Dieses Steuerlement kann man mit TForm.ActiveControl abfragen.

Delphi-Quellcode:

LabelInfo.Text := self.ActiveControl.Name;

Wenn dich zusätzlich interessiert, auf welchem Panel/Groupbox ein Steuerelement liegt, dann kannst
du so vorgehen:

Delphi-Quellcode:

var
   c : Tcontrol;
   s : string;
begin
   c := self.ActiveControl;
   if Assigned(c) then
   begin
   s := c.Name;   // name des fokusierten Steuerelements

   while (c.Parent <> nil) and (c.Parent<>self) do
   begin
      c := c.Parent;
      s := c.Name + ' -> ' s;   // Name des Parent dazu
   end;
   LabelInfo.Text := s;
   end
   else
      LabelInfo.Text := 'kein Control selektiert';
end;

[Stevie]

Zitat:

Zitat von shmia

Es gibt keine aktiven Komponenten, sondern pro Formular nur ein Steuerelement (=control), dass den Fokus hat.

Les doch mal richtig! :zwinker:

Zitat:

Zitat von grunge

ich habe eine Form mit meheren unterschiedlichen Komponenten und möchte mir nun die gerade aktive
Komponente in z. B. einem Lablefeld mit deren Namen anzeigen lassen.

P.S. Ok, es heißt korrekt "mit dessen Name"... :oops: