掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
継承元の異なるコンポーネントに対するプロパティ代入 (ID:44485)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
GetができるのにSetができない理由がわかりませんけど？？？ private function GetEditorSelLength: Integer; procedure SetEditorSelLength(SelLength: 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; procedure TForm1.SetEditorSelLength(SelLength: Integer); begin if PlainEditMode then Memo1.SelLength := SelLength else RichEdit1.SelLength := SelLength; end; 使用例） procedure TForm1.Button1Click(Sender: TObject) begin if EditorSelLength > 2 then EditorSelLength := 2; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.