Criação de Frame

[macsousa 0]

Estou

 

criando em tempo de execucao um Frame e verificando se ele ja existe no form... .

 

caso nao exista, eu crio....

 

procedure TfrmPrincipal.Button1Click(Sender: TObject);  var	cliente	   :  TframeCliente;	componente	:  TObject;	i			 :  integer;	existe		:  boolean;begin  existe := false;  for i:= 0 to  frmPrincipal.ComponentCount-1 do  begin   componente := frmPrincipal.Components[i];   if (componente is TFrame) and ( (componente as TFrame).Name='frameCliente') then begin	 existe:=true;   end;  end; //end for i  if(not existe) then  begin	cliente := TframeCliente.Create(Self);	cliente.Align := alClient;	cliente.parent:= frmPrincipal;  end;end;

 

porem gostaria de inves de :

 

 

cliente := TframeCliente.Create(Self);

chamar chamar qualquer nome de frame nesta linha tipo :

 

frameee := QUALQUENOMEFRAME.Create(Self);

e ter uma varios frames precriados e poder chama-los....

 

tem como ?

[macsousa 0]

TFrame(FindClass('frame'+nome)).Create(Self)

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif