継承元の異なるコンポーネントに対するプロパティ代入 (ID:44483)

名前

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

本文 お世話になっています さて表題の件ですが実際に使用しているコンポーネントは TJvRichEdit と TEditor ですが わかりやすく TMemo と TRichEdit で private PlainEditMode:Boolean; function GetEditorSelLength:integer; function TForm1.GetEditorSelLength: integer; begin if PlainEditMode then Result:=Memo1.SelLength else Result:=RichEdit1.SelLength; end; これでモードによって SelLength を取得は出来るのですが代入が出来ません GetEditorSelLength:=2; 等という風にしたいのですが何か方法はありますでしょうか？ 私の開発環境は Delphi2009 ud4 です D5 以降の新機能をあまり使いこなせていませんので何かそのあたりに手がありそうなのですが 以上、よろしくお願いいたしますm(_ _)m