Ver Mensaje Individual
  #1  
Antiguo 02-05-2015
Avatar de GustavoCruz
GustavoCruz GustavoCruz is offline
Miembro
 
Registrado: jul 2006
Ubicación: Sampués Sucre (Colombia)
Posts: 293
Reputación: 18
GustavoCruz Va por buen camino
Borrar contenido en TFrame

Hola amigos del foro,

tengo una aplicación que carga un frame en mi formulario principal; y quiero saber cómo puedo borrar el contenido de todos los campos que en él se encuentran.

Para realizar esta acción en un TForm he creado un procedimiento que me busca los componentes
Código Delphi [-]
procedure TfDatos.LimpiarFormulario(Formulario: TForm; tipo: integer = 0);
procedure Memos;
  var
    c: TComponent;
    i: integer;
  begin
    for i := 0 to Formulario.ComponentCount - 1 do
    begin
      c := Formulario.Components[i];
      if c is TMemo then
        TMemo(c).Lines.Clear;
    end;
  end;
begin
  // Formulario.Position := poScreenCenter;
  Memos;  
end;

Quisiera hacer esto mismo pero en un TFrame

De antemano mil gracias por vuestro tiempo


GustavoCruz
Responder Con Cita