掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
継承元の異なるコンポーネントに対するプロパティ代入 (ID:44486)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
新機能どころか、おそらくDelphi2ぐらいからある方法です あいかわらずメモ帳で入力したので不備があるかもしれませんが private PlainEditMode:Boolean; function GetEditorSelLength:integer; procedure SetEditorSelLength(const Value : Integer); public property EditorSelLength : Integer read GetEditorSelLength write SetEditorSelLength; function TForm1.GetEditorSelLength: integer; begin if PlainEditMode then Result:=Memo1.SelLength else Result:=RichEdit1.SelLength; end; function TForm1.SetEditorSelLength(const Value : Integer): integer; begin if PlainEditMode then Memo1.SelLength := Value else RichEdit1.SelLength := Value; end; 取得する場合 Len := EditorSelLength; 代入する場合 EditorSelLength := 2;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.