複数のFormを追加したい (ID：27974)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

皆様、とうとうできました。各位のご親切に心よりお礼申し上げます。関連して変数のスコープなどもいろいろいじったおかげですこしづつ分かったように思います。

ここで単に解決のサインを書いてもライブラリになりませんのでサーバー容量を喰って申し訳ありませんが全プロセスを書かせていただきます。

（A)Formの配置
１．（現在Form1がある状態で）ファイル→新規作成→フォーム  でForm2を追加
２．Form2.Visible:= False;であることを確認（最初からFalseになっていました）
３．プロジェクト→オプション→フォームでForm2を自動生成から外す
４．Form1.For2にボタン、Editなどのコンポーネントを配置

（コード）：下記のようになりました。（何か怪しい点がありましたらご指摘ください）

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);
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    A,B,C:real;
  end;

var
  Form1: TForm1;
 // Form2: TForm2;   これがあるとUnit2のButton2をクリックすると「読み込み違反」のメッセージが出ましたが老婆心さまのご指摘の通り消したらエラーをパスできました。

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=5;  b:=6;  c:=7;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.visible:=false;
  Form2 := TForm2.Create(Self);
  Form2.ShowModal; //モーダルなウィンドウを表示。
  Form2.Release; //ウィンドウを閉じた後は、ウィンドウが不要になるので開放。
end;

end.

----------------------------------------------------
unit Unit2;

interface

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

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

var
  Form2: TForm2;
  A,B,C:real;

implementation
  uses Unit1;  //D6パーソナルでは自動で追加されませんでしたので手動で追加

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
a:=form1.A;
b:=form1.B;
c:=form1.C;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
edit1.Text:=floattostr(a+b+c);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
form1.visible:=true;
form2.Close;
end;

end.

ありがとうございました。

←解決時は質問者本人がここをチェックしてください。

戻る