Selektierte Komponente abfragen

[Eppos]

Hallo zusammen,

ich habe ein Form auf der verschiedene Eingabefelder stehen.
Jetzt möchte ich gerne den namen der selektierten Komponente abfragen.
Wie kann ich anfragen, welche Komponente momentan selektiert ist?

Vielen Danke!

[Hawkeye219]

Hallo Eppos,

die Eigenschaft TScreen.ActiveControl sollte dir die gesuchte Information liefern.

Gruß Hawkeye

[Looper]

Hey
man könnte auch diesen Code in eine Schleife betten und so alle Komponenten auf dem Formular abfragen.

Delphi-Quellcode:

  
if (form1.Components[0] is TEdit) then
  if TEdit(form1.Components[0]).focused then
    //...

Ich weiß allerdings nicht, ob dieser Code auch schnell ausgeführt wird

Gruß Looper

[Uwe Raabe]

Zitat von Hawkeye219:

die Eigenschaft TScreen.ActiveControl sollte dir die gesuchte Information liefern.

TForm.ActiveControl sollte hier aber auch gehen.

[I.A]

Hallo!

Auch ich suche derzeit nach einer solchen Möglichkeit. Ich will einen eigenen Formdesigner bauen und brauche ein Ereignis, das bei Änderung der selektierten Komponente den Objektinspektor aktualisiert.

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ClassInspector.Hide;
  ClassInspector.ClassProperties := ActiveControl;
  ClassInspector.Show;
end;

Hier ist Form1 der Formdesigner unter Verwendung der Komponente TSizeCtrl vom User _frank_ aus der DP. Classinspector ist der Objektinspektor.

Wenn ich zur Entwurfszeit ActiveControl in der FormCreate Methode fest einstelle, erhalte ich die Anzeige im OI wie gewünscht.

http://www.delphipraxis.net/internal...highlight=rtti

Nur, wenn ActiveControl zur Entwurfszeit NIL bleibt (Eintrag im Delphi-OI leer) und ich also die anzuzeigende Komponente zur Laufzeit auswähle, klappt das nicht. Wer kann hier helfen?