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

名前

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

本文

こんにちは、bobです。

個人的にはDelphiなら、プロパティ使った方が良いと思いますが...
＃ちなみに僕はＶＢ６でもプロパティで受け渡すようにしています。

---Unit1.pas
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
  Form2: TForm2;
begin
  form2 := TForm2.Create(self);
  try
    form2.Edit := Edit1;
    form2.ShowModal;
  finally
    form2.Free;
  end;

end;

end.

---Unit2.pas
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
  private
    { Private 宣言 }
    FEdit: TEdit;

procedure SetEdit(Value: TEdit);
  public
    { Public 宣言 }
    property Edit: TEdit write SetEdit;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.SetEdit(Value: TEdit);
begin
  FEdit := Value;
  self.Caption := FEdit.Text;
end;

end.

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

戻る