Ver Mensaje Individual
  #2  
Antiguo 03-05-2015
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.235
Reputación: 20
ElKurgan Va camino a la fama
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
Responder Con Cita