掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム間でのコントロール情報の渡し方 (ID：10514)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>//ユニット１ >implementation >{$R *.dfm} >uses Unit2; >procedure From1.Button1Click(Sender: TObject); >var a:string; >begin > From2.Edit1.Text := Edit1.Text; これだけで良いです。 > //もしくは > Edit1.Text:='A'; //これは無し >end; 既にForm2が開いていたらOKのはずです。 開いていないならFrom2.Show;を From2.Edit1.Text := Edit1.Text; >//ユニット２ >procedure From1.Button1Click(Sender: TObject); >var a:string; >begin > Edit1.Text :=From1.Edit1.Text; > //もしくは > a:=From1.Edit1.Text; >end; これはちょっと・・・
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.