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

Pues ... ¡Exactamente igual!

En este ejemplo he creado dentro del frame este método publico:

Código Delphi [-]
procedure TFrame2.LimpiarMemos;
var
  i: Integer;
begin
  for i := 0 to Self.ComponentCount - 1 do
    if Self.Components[i] is TMemo then
      TMemo(Self.Components[i]).Lines.Clear;

end;

Y luego, desde el formulario que contiene el frame hago la llamada como sigue:

Código Delphi [-]
type
  TForm1 = class(TForm)
    Frame21: TFrame2;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Frame21.LimpiarMemos;
end;

Espero que te sirva

Saludos