Ver Mensaje Individual
  #4  
Antiguo 11-02-2008
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Supongamos un "frame", un "formulario" y un "botón". Añadimos la unidad que implementa el "frame" en la unidad del formulario. Suponemos que ya se declara una variable "myFrame" en la unidad del "frame", de no ser así, podríamos declarar una variable local del tipo del "frame". Aprovechamos el evento "OnClick" del "botón" para crear una instancia del "frame", y se asignamos como "parent" al formulario "formulario".

Código Delphi [-]
unit UMyForm;

uses
  Forms, /* */;

interface

type
  TMyForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

uses
  UMyFrame;

implementation

procedure TMyForm.Button1Click(Sender: TObject);
begin
  myFrame := TFrame.Create(Self);
  myFrame.Parent := Self;
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita