komponente suchen über alle Forms und Datenmodule

[Aya]

Hi,

bin mir nicht sicher ob ich es richtig verstanden habe... aber so z.B. kannst du ein TEdit in allen Forms deiner App suchen:

Delphi-Quellcode:

function FindEdit(Name: String): TEdit;
var
  C, F: Integer;
begin
  Result:=nil;
  for F:=0 to Application.ComponentCount-1 do begin
    if Application.Components[F] is TForm then
      for C:=0 to TForm(Form).ComponentCount-1 do begin
        if TForm(Form).Components[C] is TEdit then begin //Wenn das was du suchst ein TEdit ist..
     if TEdit(TForm(Form).Components[C]).Name = Name then begin //Name..?
       Result:=TEdit(TForm(Form).Components[C]);
       Exit;
     end;
   end;
      end;
    end;
  end;
end;

Au'revoir,
Aya~