怎么样找出一个工程里所包含的所有窗口类？

Question

我想在一个工程里（即程序里），根据给定的字符串，找出符合的其值的窗口类，并使之显示，请问应该怎么实现？？？

Answer 1

好象说的不是很清楚，你是说编程来实现，还是问在delphi中有没有这样的功能？
如果你要 查看工程中全部的窗口，点view forms就可以了

Answer 2

你看看我回答的这个贴子，能帮助你吗？
http://expert.csdn.net/Expert/topic/2296/2296112.xml?temp=.7656671TClassList = class
private
  FClassList: TList;
  function GetClass(Name : String) : TObject;
public
  constructor create;
  destructor Destroy;
  function CreateByName(name : String): TObject;
  procedure RegisterClass(newclass: TClass);  property ClassList[name: String]: TObject read GetClass;
end;constructor TClassList.Create;
begin
  FClasslist := TList.Create;
end;destrucutor TClassList.Destroy;
begin
  freeAndNil(FClassList);
end;function TClassList.CreateByName(Name : string): TObject;
begin
  try 
    Result := ClassList[Name].Create;
  except
    raise Exception.Create(Format("类%S不存在或者没有注册", [Name]);
  end;
end;function TCLassList.GetClass(Name: String);
var
  I: Integer;
begin
  for I := 0 to FClassList.count - 1 do
  begin
    Result := TClass(FClassList.Items[i]);
    if SameText(Result.ClassName, Name) then Exit
  end;  
end;