create form wiederfinden problem

[tomsel]

kannste damit was anfangen:

Delphi-Quellcode:

function TForm1.SucheCaption(aCaption:string):tform;
var i:integer;
begin
        result := nil;
   for i:=0 to pred(application.Componentcount) do
      if application.Components[i] is tform2 then
         if tform(application.Components[i]).Caption = aCaption then
                            result := tform(application.Components[i])
end;

Die funktion sollte ein ergebnis <> nil liefern, wenn ein Form vom Typ tform2 mit der gesuchten Caption existiert. Das Ergebnis ist dann der Verweis auf das gefundene Fenster.