TEdit Componente über Tag finden

[bayou]

@haentschman
Ja genau.
Damit ich später dort was rein schreiben kann.

@blawen
OK, und wie machee ich das?

Vielen Dank

PS: später habe ich in Formular 2 ein Edit-Feld aus dem ich den Wert in das Formular 1 in einen der 10 Edit-Felder übertragen möchte.

[Dennis07]

Also verstehe ich das richtig:

Form1 {
Edit1, Edit2, Edit3, Edit4, Edit5,
Edit6, Edit7, Edit8, Edit9, Edit10: TEdit;
}

Form2 {
Button1: TButton;
}

Und jetzt soll beim Klicken von Button1 auf Form2 herausgefunden werden, welches TEdit auf Form1 den Fokus hat?
Falls ja, dann kannst du das derzeit fokussierte Control auf Form1 mit Form1.ActiveControl herausbekommen. Um zu prüfen, ob es ein Button ist, benutze den "is"-Operator (nur notwendig, falls du noch andere Kontrols außer Edit-Felder auf Form1 hast). Zum anschließenden Konvertieren den "as"-Operator.
Dein OnClick-Ereignis des Form1.Button1 könnte also wie folgt aussehen (vergiss nicht, die Unit des Form1 in die des Form2 einzubinden!):

Delphi-Quellcode:

procedure Form2.Button1Click(Sender: TObject);
var
  SelectedEditField: TEdit;
begin
  //if Form1.ActiveControl is TEdit then <- nur Notwendig, falls nicht-Edit-Controls vorhanden
  SelectedEditField := (Form1.ActiveControl as TEdit);
end;

[bayou]

Super.
1000 Dank.
Das war es was mir gefehlt hat.
Leider komme ich eher sehr selten dazu etwas mit Delphi zu arbeiten.

Nochmals Danke.

[himitsu]

Aber nicht über Screen.ActiveControl ... die andere Form hat den Folus und wenn man einen "normalen" Button (nicht ToolButton/SpeedButton) drückt, bekommt der auch noch den Fokus.

Und bei MDI-Childs und eingebetteten Forms ist Form.ActiveControl immer NIL ... denn dort liegt der Fokus bei der obersten Parent-Form, also (Form.Parent{.Parent...} as TForm).ActiveControl

[bayou]

Es funktioniert wie ich es mir wünsche.
Also alles gut