掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Form1で作成した関数をForm2で使用するためには？ (ID:20710)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Form2のpublicにMessageBoxなるメソッドを作成したとして type TForm2 = class(TForm) 〜省略〜 public procedure MessageBox; end; procedure TForm2.MessageBox; begin ShowMessage('Form2 のメッセージ'); end; Form1では以下のように使用します。 procedure Test; var F : TForm2; begin F := TForm2.create(nil); try F.MessageBox; // ← ここでForm2のメソッドをつかってる finally FreeAndNil(F); end; end; ※必要最小限のコードしか書いてないのでわからなければ言ってください。 関数との事なので procedure MessageBox; を関数にすれば他と同じように使えます。 class functionとかするといちいちCreateしないので便利に使えます。 function MessageBox;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.