掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
呼び出し元の判別 (ID:42530)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
同じく「呼び出す」の意味がわからないのですが・・・ procedure TForm1.Button1Click(Sender: TObject); var formsel: TForm_Sel; begin formsel := TForm_Sel.Create(Self); formsel.ShowModal; formsel.Free; end; procedure TForm2.Button1Click(Sender: TObject); var formsel: TForm_Sel; begin formsel := TForm_Sel.Create(Self); formsel.ShowModal; formsel.Free; end; procedure TForm_Sel.Button1Click(Sender: TObject); var formEdit:TForm_Edit; begin formEdit := TForm_Edit.Create(Owner); //Case.1 //formEdit := TForm_Edit.Create(Self); //Case.2 formEdit.ShowModal; formEdit.Free; end; procedure TForm_Edit.Button1Click(Sender: TObject); begin ShowMessage(Owner.ClassName); //Case.1 //ShowMessage(Owner.Owner.ClassName); //Case.2 end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.