Ver Mensaje Individual
  #3  
Antiguo 17-10-2012
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
La función de Clonar parece correcta, la que ya no se si lo es es la que utilizas para asignar.

algo así, por ejemplo funciona:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  f:TForm;
  i:integer;
  comp:TComponent;
begin

  // Edit2 el nombre del form al que quiero acceder al edit
  // Edit3, el valor que quiero asignar al Edit1 del form anterior

  for i := 0 to (Screen.FormCount - 1) do begin
    if (Screen.Forms[i].Name = Edit2.Text) then begin

      comp := Screen.Forms[i].FindComponent('Edit1');
      if Assigned(comp) then begin
        if (comp is TEdit) then begin
          TEdit(comp).Text := Edit3.Text;
        end;
      end;

    end;
  end;

end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita