unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
MiBoton:TButton;
Form2: TForm1;
procedure MiBotonClick(Sender: TObject);
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
MiBoton:=TButton.Create(Self);
MiBoton.Parent:=Form1;
end;
procedure TForm1.MiBotonClick(Sender: TObject);
begin
Form2:=TForm1.Create(Application);
Form2.Caption:='Pruductos';
Form2.Show;
end;
end.