天
天堂鱼
Unregistered / Unconfirmed
GUEST, unregistred user!
program Project1;
uses
; Forms,
; Unit1 in 'Unit1.pas' {Form1},
; Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
; Application.Initialize;
; Application.CreateForm(TForm1, Form1);
; Application.Run;
end.
unit Unit1;
interface
uses
; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
; Dialogs, StdCtrls,Unit2;
type
; TForm1 = class(TForm)
; ; Button1: TButton;
; ; procedure Button1Click(Sender: TObject);
; private
; ; { Private declarations }
; public
; ; { Public declarations }
; end;
var
; Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
; f:TForm2;
begin
; f:=TForm2.Create(nil);
; f.Show;
end;
end.
unit Unit2;
interface
uses
; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
; Dialogs, StdCtrls;
type
; TForm2 = class(TForm)
; ; Label1: TLabel;
; private
; ; { Private declarations }
; public
; ; { Public declarations }
; end;
var
; Form2: TForm2;
implementation
{$R *.dfm}
end.
uses
; Forms,
; Unit1 in 'Unit1.pas' {Form1},
; Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
; Application.Initialize;
; Application.CreateForm(TForm1, Form1);
; Application.Run;
end.
unit Unit1;
interface
uses
; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
; Dialogs, StdCtrls,Unit2;
type
; TForm1 = class(TForm)
; ; Button1: TButton;
; ; procedure Button1Click(Sender: TObject);
; private
; ; { Private declarations }
; public
; ; { Public declarations }
; end;
var
; Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
; f:TForm2;
begin
; f:=TForm2.Create(nil);
; f.Show;
end;
end.
unit Unit2;
interface
uses
; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
; Dialogs, StdCtrls;
type
; TForm2 = class(TForm)
; ; Label1: TLabel;
; private
; ; { Private declarations }
; public
; ; { Public declarations }
; end;
var
; Form2: TForm2;
implementation
{$R *.dfm}
end.