フォームが2つあるときのプログラムの書き方 (ID:13484)

名前

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

本文

状況を示します。
Unit1
-----------------------------
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
var Ed : array[0..9] of TEdit;
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to 9 do begin
    Ed[i] := TEdit.Create(Self); 
    Ed[i].Parent := Form1;       
    Ed[i].Left := 50;            
    Ed[i].Top := i * 20;         
    Ed[i].text := IntToStr(i)+'番目のEdit'; 
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
  i := strtoint(form2.edit1.text);
  Ed[i].text := 'aa';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;
end;

end.
-----------------------------

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

interface

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

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

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var i : integer;
begin
  i := strtoint(Edit1.Text);
  form1.Ed[i].text := 'aa';  //この部分が出来ないのです。
end;

end.
-----------------------------
上の2つのソースをそのままそれぞれのUnitに貼り付けてください。form1にはButtonを2つだけ、form2にはEditとButtonを１つずつ貼り付けてください。
Unit2のコメントをしている部分が不具合のでるところです。
この部分をうまく実行させるにはどうすればいいのでしょうか、という質問なのですが。。

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

戻る