フォーム間でのコントロール情報の渡し方 (ID:10512)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ソースですが下記のような形です。

//ユニット１

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, OleCtrls,QDialogs,
  MSScriptControl_TLB;

type
  TFrom1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;

procedure Button1Click(Sender: TObject);
  
 
  private
    { Private 宣言 }    
  public
    { Public 宣言 }
 
  end;

var

implementation

{$R *.dfm}

uses Unit2;

procedure From1.Button1Click(Sender: TObject);
var a:string;
begin

From2.Edit1.Text := Edit1.Text;
  //もしくは
  Edit1.Text:='A';
end;

//ユニット２

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, OleCtrls,QDialogs,
  MSScriptControl_TLB;

type
  TFrom2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;

procedure Button1Click(Sender: TObject);
  
 
  private
    { Private 宣言 }    
  public
    { Public 宣言 }
 
  end;

var

implementation

{$R *.dfm}

uses Unit1;

procedure From1.Button1Click(Sender: TObject);
var a:string;
begin

Edit1.Text :=From1.Edit1.Text;
  //もしくは
  a:=From1.Edit1.Text;

end;

Form1でForm2のコントロールに直接データを渡した後、次のForm2でデータを
取り扱う形になるのでしょうか？
Form2で直接、Form1のコントロールの値を参照は出来ないのでしょうか？
bob様、プロパティの方も試してみます。どちらかというと、なるべくコーディング
しない方向を考えています。

←解決時は質問者本人がここをチェックしてください。

戻る