Borrar contenido en TFrame

[GustavoCruz]

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
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

[ElKurgan]

Pues ... ¡Exactamente igual!

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

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:

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