Trabajando con formularios

[Neftali [Germán.Estévez]]

Se trata de buscar el formulario a partir de su nombre, y si lo encuentras visualizarlo.

Se me ocurre que se puede hacer a partir de TApplication:

Código Delphi [-]
var
  f:TForm;
  c:TComponent;
  sName:string;
begin
  sName := 'Fm' + LbLetrero.Caption;
  c := Application.FindComponent(sName);

  // encontrado?
  if Assigned(c) then begin
    TForm(c).Show;
  end;

O a partir de la clase TScreen:

Código Delphi [-]
var
  sName:string;
begin
  sName := 'Fm' + LbLetrero.Caption;

  // recorrer los forms
  for i := 0 to (Screen.FormCount - 1) do begin
    if (AnsiCompareText(Screen.Forms[i].Name, sName) = 0) then begin
      Screen.Forms[i].Show;
      Break;
    end;
  end

Es eso?