komponente suchen über alle Forms und Datenmodule

[Schuster]

Thx to all

habs nun gelöst dank eurer Hilfe

und so schauts aus:

Delphi-Quellcode:

function TMaxMySqlQuery.FsucheGridKomponente():TComponent;
var x,f : Integer;
xform : Tform;
begin
      for f:=0 to Application.ComponentCount-1 do         //Anzahl der Komponenten feststellen
      if Application.Components[f] is TForm then          //Alle Fenster durchgehen
      begin
        xform := Tform(Application.Components[f]);      // in TForm casten

        for x:=0 to Tform(xform).ComponentCount-1 do     //Komponenten des Forms duchlaufen
        if Tform(xform).Components[x] is TMaxMySqlGrid then   //Prüfen welche v. meinen Grid sind
        begin      //DatasourceName mit Namen dieser Komp. vergleichen
          if (Tform(xform).Components[x] as TMaxMySqlGrid).Datasource.Name = Self.name then
          begin
           result:= Tform(xform).Components[x];
           exit;
          end
          else
           result:= nil;
        end;
      end;
end;