Søge iblandt forms

hvis du gemmer en reference til hver form i en TList kan du gøre sådan her

var
  Forme: TList;

...

function FindForm(const s: string): TForm;
var
  F: TForm;
  i, j: Integer;
begin
  for i := 0 to Forme.Count - 1 do
  begin
    F := TForm(Forme[i]);
    for j := 0 to F.ComponentCount - 1 do
      if (F.Components[i] is TEdit) and (TEdit(F.Components[i]).Text = s) then
      begin
        Result := F;
        Exit;
      end;
  end;
  Result := nil;
end;

Du finder en form vha. af dens caption.
Opret en variabel, MitVindue: hWnd

Find vinduet med
MitVindue:=FindWindow(nil,\'Vinduets caption\');
SetActivewindow(MitVindue);

Denne rutine giver dig den form, som har en editbox med teksten EditText. Helt uden arbejde ;-)

function GetForm(EditText: string): TForm;
var
  I, J: Integer;
  Form: TForm;
begin
  Result := nil;
  for I := 0 to Application.ComponentCount - 1 do
    if Application.Components[I] is TForm then
    begin
      Form := TForm(Application.Components[I]);
      for J := 0 to Form.ComponentCount - 1 do
        if Form.Components[J] is TEdit then
        begin
          if TEdit(Form.Components[J]).Text = EditText then
          begin
            Result := Form;
            Exit;
          end;
        end;
    end;
end;