Ver Mensaje Individual
  #1  
Antiguo 16-10-2012
titomigue titomigue is offline
Miembro
 
Registrado: may 2010
Posts: 17
Reputación: 0
titomigue Va por buen camino
Duda - referirme a un componente de un form clonado con una funcion.

hola buenas,
de mi form principal hago "clones" de un segundo form de esta manera:

Código Delphi [-]
function ClonoForm(form:TForm; var AIndice:Integer):TForm;
var
  ms : TMemoryStream;
  clone : TForm;
  edit: TEdit;
begin
  ms := TMemoryStream.Create;
  try
    ms.WriteComponent(form) ;
    ms.Position := 0;
    clone := TFormClass(form.ClassType).CreateNew(Application) ;
    ms.ReadComponent(clone) ;
    clone.caption:='Clon'+IntToStr(AIndice);
    clone.name:='Clon'+IntToStr(AIndice);
    clone.Left := form.Left;//posicion de ventana
    clone.Top := form.Top;//posicion de ventana
    clone.Show; //muestro el clon
    Result := Clone;
  finally
    ms.Free;
  end;
end;

Bien, ahora en el form2 cojo el nombre de la ventana por ejemplo "clon2" y hago una función que recibe ese 2.
Bien, ahora desde la función, en un Edit1 (por ejemplo) del form2 quiero escribir ese 2, pero no consigo referirme al componente Edit1 desde la función (me dice que no existe ese componente).
si escribo Form2.Edit1..... lo hace pero dejándome todos los clones con un único numero en el Edit1

¿Como podría referirme concretamente al Edit1 del "clon2"?
Responder Con Cita