MDIの子フォーム (ID:44265)

名前

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

本文

テストしてみました．
質問された方のコードとは違うと思いますが．
動作確認環境も質問された方と違い，Windows 7 U64(SP1) + Delphi XE です．

------------  メインフォーム Unit1.pas のコード  ---------------------------
              FormStyle を fsMDIFormにしておく

var
  FTEST1: TFTEST1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

{ TTFEST1 }

procedure TFTEST1.Button1Click(Sender: TObject);
begin
  CHILD_OPEN;
end;

procedure TFTEST1.CHILD_OPEN;
VAR
   CFRM2 : TFTEST2;
   CFRM3 : TFTEST3;
BEGIN
   CFRM2 := TFTEST2.CREATE(APPLICATION);
   CFRM3 := TFTEST3.CREATE(APPLICATION);
end;

------------  子フォーム Unit2.pas のコード  ---------------------------
              自動生成から場外し，FormStyle を fsMDIChildにしておく

var
  FTEST2: TFTEST2;

implementation

uses Unit3;

{$R *.dfm}

procedure TFTEST2.Button1Click(Sender: TObject);
begin
  FTEST3.Edit2.Text := 'テストです';
end;

------------  子フォーム Unit2.pas のコード  ---------------------------
              自動生成から場外し，FormStyle を fsMDIChildにしておく
              TEdit (Edit2) を配置しているだけ

var
  FTEST3: TFTEST3;

implementation

{$R *.dfm}

end.

コードは以上です．
コンパイルして実行して，メインフォームのボタンをクリック
子フォームのボタンをクリックすると，以下のエラーが発生します．
「オブジェクトが何とかという」を期待したのですが，そうですよね．ハハハッ (汗)

---------------------------
モジュール 'Project1.exe' のアドレス 004B0C57 でアドレス 00000388 に対する読み取り違反がおきました。.
---------------------------

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

戻る