プロパティの．． (ID:7026)

名前

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

本文 私の環境(Delphi7Pro)では、以下の記述でエラーなく貼り付けられます。 type TTestCtrl = class(TWinControl) private { Private 宣言 } FOrgWidth: Integer; procedure SWidth(Value: Integer); function GWidth: Integer; protected { Protected 宣言 } public { Public 宣言 } constructor Create(AOwner: TComponent); override; published { Published 宣言 } property Width: Integer read GWidth write SWidth; end; constructor TTestCtrl.Create(AOwner: TComponent); begin inherited Create(AOwner); FOrgWidth := 100; end; procedure TTestCtrl.SWidth(Value: Integer); begin FOrgWidth := Value; end; function TTestCtrl.GWidth: Integer; begin Result := FOrgWidth; end; 別の場所に問題があるのだと思います。