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;