掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
生成したフォーム上のテキストボックスの内容が読み取れない (ID:47983)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
現在以下のように実装しています。 Form1上にTPanelを設置しその中にForm2を生成。 Form1上のボタンクリックでForm2上のテキストBOXの値を読み込む [Form1] use Form2; type TForm1 = class(TForm) Panel1: TPanel; Btn1: TButton; procedure FormCreate(Sender: TObject); procedure Btn1Click(Sender: TObject); private { Private declarations } PForm : TForm; 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; end; //ボタンを押す procedure TForm1.Btn1Click(Sender: TObject); var s :String; begin s =: Form2.moji [Form2] type TForm2 = class(TForm) Name: TEdit; function moji:String; end; var Form2: TForm2; implementation {$R *.dfm} function moji:String; begin Name.Text := 'test'; //エラー発生 Result := Name.Text; end; エラー内容は読み込み違反というように出ます。 初歩的な質問で申し訳ないのですが原因と対処法を教えてください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.