program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;  //これを追加する

{$R *.dfm}

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;  

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Left := Self.Left - 50;
  Form2.Top  := Self.Top  + 80;

  Form2.ShowModal;
end;

end.

var
  Form2 : TForm2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Unit2.Form2.Left := Self.Left - 50;
  Unit2.Form2.Top  := Self.Top  + 80;

  Unit2.Form2.ShowModal;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  //TForm2というクラスのフォームのインスタンスを生成する
  Form2 := TForm2.Create(Self);
  try
    //表示位置を設定
    Form2.Left := Self.Left - 50;
    Form2.Top  := Self.Top  + 80;

    //ShowModalメソッドで表示
    Form2.ShowModal;
  finally
    FreeAndNil(Form2);
  end;
end;

end.

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

  Form2 := TForm2.Create(Self);

procedure TForm1.Button1Click(Sender: TObject);
var
  AForm : TForm2;
begin
  //TForm2というクラスのフォームのインスタンスをAFormという名前で生成する
  AForm := TForm2.Create(Self);
  try
    //表示位置を設定
    AForm.Left := Self.Left - 50;
    AForm.Top  := Self.Top  + 80;

    //ShowModalメソッドで表示
    AForm.ShowModal;
  finally
    FreeAndNil(AForm);
  end;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

//-----------------------------------------------------------------------------
//  Form2をモーダルで表示
//-----------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Left := Self.Left - 50;
  Form2.Top  := Self.Top  + 80;

  Form2.ShowModal;
end;

//-----------------------------------------------------------------------------
//  Form2をモードレスで表示
//-----------------------------------------------------------------------------
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form3.Left := Self.Left - 50;
  Form3.Top  := Self.Top  + 80;

  Form3.Show;
end;

end.

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm3 = class(TForm)
  private
    { Private 宣言 }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public 宣言 }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

{ TForm3 }

procedure TForm3.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := Application.Handle;
end;

end.

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := False;  //Falseにする
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

procedure TForm3.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := Application.MainForm.Handle;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

//-----------------------------------------------------------------------------
//  メインフォーム生成時に別のフォームを表示
//  メインフォームの位置は取得できないので、Form2の位置は具体的な値にする
//  Form2は、自動生成から除外して、使用可能フォームにしておく
//-----------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var
  AForm : TForm2;
begin
  AForm := TForm2.Create(Self);
  try
    AForm.Left := 500;
    AForm.Top  := 300;

    AForm.ShowModal;
  finally
    FreeAndNil(AForm);
  end;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private 宣言 }
  protected
    procedure CMShowingchanged(var Message: TMessage);
      message CM_SHOWINGCHANGED;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

//-----------------------------------------------------------------------------
//  CM_SHOWINGCHANGEDメッセージの処理
//  CM_SHOWINGCHANGEDは表示の状態が変化した時に発生する
//  非表示になる時も発生するので、Visibleプロパティで判断する
//-----------------------------------------------------------------------------
procedure TForm1.CMShowingchanged(var Message: TMessage);
begin
  inherited;  //必ず必要

  if Self.Visible then begin
    Form2.Left := Self.Left - 50;
    Form2.Top  := Self.Top  + 80;

    Form2.ShowModal;
  end;
end;

end.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    TestStr : String;
    procedure PutTextString;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

//-----------------------------------------------------------------------------
//  文字列型の変数TestStrに文字列を代入するメソッド
//-----------------------------------------------------------------------------
procedure TForm2.PutTextString;
begin
  TestStr := 'DELPHI XE';
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel1.Caption := '';
  Panel2.Caption := '';

  //Form2のPutTextStringメソッドを実行
  Form2.PutTextString;
  //Form2の変数であるTestStrの値をPanel1に表示
  Panel1.Caption := Form2.TestStr;

  //Form2のPanel1のCaptionの値を表示
  Panel2.Caption := Form2.Panel1.Caption;
end;

end.

type
  TMyClass = class(TObject)
    // ここには書かないこと(Delphiが使用する特別な領域)
  private
    // ここで宣言したた変数やメソッドは同じユニット内だけでアクセス可能
    //  他のユニットからはアクセスできない
  protected
    // ここで宣言した変数やメソッドは同じユニット内だけでアクセス可能
    // 他のユニットからはアクセスできない
  public
    // ここで宣言した変数やメソッドはどのユニットからもアクセス可能
  published
    // ここで宣言した変数やメソッドはどのユニットからもアクセス可能
  end;

var
  Form1: TForm1;  //どのユニットからも使用可能なグローバル変数

implementation

{$R *.dfm}

var
  UTestText : String;  //ユニット内のimplementation部だけで使用可能なグローバル変数

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

//-----------------------------------------------------------------------------
//  プロジェクトにないフォームの変数やメソッドを使用
//  Form2は、このプロジェクトには含まれていない
//
//  Form2を生成して使用する
//  Form2のButton1のModalResultはmrOkで、DefaultをTrueにしている
//  Form2のButton2のModalResultはmrCancel
//-----------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  AForm : TForm2;
begin
  Panel1.Caption := '';
  Panel2.Caption := '';

  AForm := TForm2.Create(Self);
  try
    AForm.Left := Self.Left - 50;
    AForm.Top  := Self.Top  + 70;

    if AForm.ShowModal = mrOk then begin
      AForm.PutTextString;
      Panel1.Caption := AForm.TestStr;

      Panel2.Caption := AForm.Panel1.Caption;
    end;
  finally
    FreeAndNil(AForm);
  end;
end;

end.

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

unit HogeHoge;

interface

uses
  Windows;

const
  hgHogeConst = 300;

var
  hgHogeValue : string;

// 関数の宣言部(interface部)
function AddValeu(A: Integer; B: Integer): Integer;

implementation

// 関数の実装部(implementation部)
function AddValeu(A: Integer; B: Integer): Integer;
begin
  Result := A + B;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  HogeHoge;

{$R *.dfm}

//=============================================================================
//  ユニットHogeHoge.pasの定数、変数、関数類を使用する例
//
//  usesにユニット名のHogeHogeが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LValue : Integer;
  LText  : string;
begin
  HogeHoge.hgHogeValue := 'ABC';
  LValue := HogeHoge.AddValeu(200, 300);

  LText := IntToStr(HogeHoge.hgHogeConst) + sLineBreak
         + HogeHoge.hgHogeValue + sLineBreak
         + IntToStr(LValue);

  MessageBox(Handle, PChar(LText), '結果', MB_ICONINFORMATION);
end;

//=============================================================================
//  ユニットHogeHoge.pasの定数、変数、関数類を使用する例
//  グローバルな定数、変数、関数名はユニット名を省略できる
//
//  usesにユニット名のHogeHogeが必要
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LValue : Integer;
  LText  : string;
begin
  hgHogeValue := 'ABC';
  LValue := AddValeu(200, 300);

  LText := IntToStr(hgHogeConst) + sLineBreak
         + hgHogeValue + sLineBreak
         + IntToStr(LValue);

  MessageBox(Handle, PChar(LText), '結果', MB_ICONINFORMATION);
end;

end.