掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム間でのコントロール情報の渡し方 (ID：10508)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ちょっと不親切でした。 //Form1は・・・ implementation uses Unit2;//参照先のユニット名(Form2) {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show; //uses節にForm2のユニット名Unit2の記述が無いと //参照できないのでコンパイルできないし表示でき //ない。 end; //Form2は・・・ implementation uses Unit1;//参照先のユニット名(Form1) {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin Form1.Edit1.Text := Form2.Edit1.Text; //これも同じでuses節にForm1のユニット名が無いと //Form1のコンポーネントは参照できないのでエラーになる。 end; といった感じです。 ちなみに、interface の下にもuses節があります。 使っても良いですが、上記のケースで両方をinterfaceの下の uses節にそれぞれ追加すると循環参照のエラーになりコンパイ ルできません。 注意が必要です。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.