Einzelnen Beitrag anzeigen

Dennis07

Registriert seit: 19. Sep 2011
Ort: Deutschland
488 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: TEdit Componente über Tag finden

  Alt 19. Feb 2018, 00:02
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;
Dennis
  Mit Zitat antworten Zitat