| [9611] タイプ(入力)ミスではないらしい | 返信 削除 |
| 2016/2/20 (土) 23:48:07 Mr.XRAY |
|
[生成したフォーム上のテキストボックスの内容が読み取れない] 予想される動作をするテストプログラムのコードとその結果の図です． キャストの問題としては取り上げていません．あしからず． 動作確認環境は Windows 7 U64(SP1) + Delphi XE(UP1) Pro です． Form2 は自動生成ではなく，[使用可能なフォーム]にしています(推測です)． また，おそらく TFrame を使用すべきなのですが，それはそれで別問題とします． ---------------- Form1 のユニットのコード -------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Unit2; type TForm1 = class(TForm) Button1: TButton; MainPanel: TPanel; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private 宣言 } //質問者のコードでは PForm : TForm となっている //にもかかわらず，Create の時は TForm2 を使用している //これもタイプミスかと思われたが，そうではないらしい //Form2 を使用するという意味では基本的に不要 //unit2 にForm2: TForm2;というグローバル変数の定義がある PForm : TForm2; public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin PForm := TForm2.Create(nil); PForm.Parent := MainPanel; PForm.Left := 0; PForm.Top := 0; PForm.Show; // 上のコード実際には以下でよい // この場合は，Form2 の解放処理は必要ない // Form2 := TForm2.Create(Self); // Form2.Parent := MainPanel; // Form2.Left := 0; // Form2.Top := 0; // Form2.Show; end; // 質問者が提示したコードには PForm の解放処理はない // PForm は，Owner を nil にして生成しているので，自動的には解放されない // 明示的な解放処理が必要 procedure TForm1.FormDestroy(Sender: TObject); begin FreeAndNil(PForm); end; procedure TForm1.Button1Click(Sender: TObject); var S : string; begin //質問者のコードは s =: Form2.moji となっているが， //OnCreate で TForm2 のインスタンスを生成している //つまり，Form2 は自動生成になっていないと予想される //したがって，Form2のインスタンスは存在していない //生成済みのインスタンスである PForm を使用する //これもタイプミス(入力ミス)と思われたが，そうではないらしい //では何故，ここでエラーが発生しないのか ? //もしかしたら，Form2 は自動生成なのか ? S := PForm.moji; MessageBox(Handle, PChar(S), '結果', MB_ICONINFORMATION); // Form2 := TForm2.Create(Self); を使用した場合は // S := Form2.moji; でよい end; end. ---------------- Form2 のユニットのコード -------------------------------- unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Name: TEdit; private { Private 宣言 } public { Public 宣言 } //質問者は Name: TEditの後に書いている //通常はそのような場所には書かない function moji:String; end; var Form2: TForm2; implementation {$R *.dfm} { TForm2 } // 質問者のコードは function moji: String; となっていて，クラスのメンバーには // なっていない // では，何故，この関数の定義文がクラスのメンバとして書かれているのか // 「オン書き」のためのタイプミスかと思われたが，そうではないらしい function TForm2.moji: String; begin Name.Text := 'test'; Result := Name.Text; end; end.  |