掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Tframeの値の引き渡しについて (ID:150397)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
基本 **** FORM **** unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Unit2; type TForm1 = class(TForm) Edit1: TEdit; Frame21: TFrame2; procedure FormCreate(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Frame21.Edit1 := Edit1; end; end. **** FRAME **** unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TFrame2 = class(TFrame) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private 宣言 } FEdit: TEdit; public //Edit: TEdit; (※) property でなくこちらでもOK published property Edit: TEdit read FEdit write FEdit; end; implementation {$R *.dfm} procedure TFrame2.Button1Click(Sender: TObject); begin if Assigned(Edit) = True then begin showmessage(Edit.Text); end; end; end.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.