掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム間でのコントロール情報の渡し方 (ID：10515)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すいません。 前述2件操作間違えて送信してしまいました。 >//ユニット１ (略) >implementation >{$R *.dfm} >uses Unit2; >procedure From1.Button1Click(Sender: TObject); >var a:string; >begin > From2.Edit1.Text := Edit1.Text; これだけで良いです。 Form2のEditに値が送られます。 > //もしくは > Edit1.Text:='A'; とするなら Form2.Edit1.Text := 'A'; です。 >end; 既にForm2が開いていたらOKのはずです。 開いていないなら From2.Edit1.Text := Edit1.Text; From2.Show; と続けて記述してみてください。 >//ユニット２ (略) > >procedure From1.Button1Click(Sender: TObject); >var a:string; >begin > Edit1.Text :=From1.Edit1.Text; > //もしくは > a:=From1.Edit1.Text; >end; Unit1の記述でうまくいくはずですので、上記の記述は不要です。 また、この場合Unit2にForm1のイベントを記述しても意味はありません。 Form2で単純にForm1の値が参照したいのなら From2にTButtonを追加してから、Form2.Button1Clickのイベントで Edit1.Text := Form1.Edit1.Text; で取得できます。 この場合は、Unit1での値のやり取りの記述は不要になると思いますが・・・ どうもボキャブラリーに乏しいのでうまく説明できませんm(__)m やってみてください。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.