掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム間でのコントロール情報の渡し方 (ID：10516)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
それと、もしかして Form2にButtonのコンポーネントを貼り付けず >type > TFrom2 = class(TForm) > Edit1: TEdit; > Button1: TButton; //←ここ > procedure Button1Click(Sender: TObject);//← ここ > private > { Private 宣言 } > public > { Public 宣言 } > end; な、記述をしてもだめです。 Form2にButtonを貼り付けて、そのOnClickイベントで =(略)= TFrom2 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); =(略)= implementation {$R *.dfm} uses Unit1; procedure TForm2.Button1Click(Sender: TObject); begin Edit1.Text := Form1.Edit1.Text; end; としないと駄目です。 前述のエラーは >//ユニット２ (略) > >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.