掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数を別Formでも使用するには (ID：8926)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Interfaceを利用しましょう。 たとえば、 IForm=interface function GetMemo: TMemo; end; というinterfaceを用意して、 TFormA=class(TForm) を、 TFormA=class(TForm,IForm) に、 TFormB=class(TForm) を、 TFormB=class(TForm,IForm) に、それぞれ変更します。 TFormA,TFormBのそれぞれに、 procedure GetMemo: TMemo; を実装してやれば、先のコードは、 function TFormA.GetMemoText(Sender: IForm): String; begin Result := Sender.GetMemo.Lines.Text end; というようになります。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.