独自のクラスを作成し、それを新しいコンポーネントで使用したいのですが、エラーが発生します... コードは次のとおりです。
type
TMyClass = class
Name: string;
Number: double;
end;
TMyComponent = class(TCustomPanel)
private
FMyClass: TMyClass;
public
procedure SetMyClass(aName: string; aNumber: double);
published
property MyClass: TMyClass write SetMyClass;
end;
procedure SetMyClass(aName: string; aNumber: double);
begin
FMyClass.Name:= aName;
FMyClass.Number:= aNumber;
end;
プロパティに互換性のない型があるようです。理由はわかりません。
誰もそれについての手がかりを持っていますか?どうすればこの問題を解決できますか? FName と FNumber を TMyComponent のフィールドとして使用することはできません。私のコードはより複雑であり、これは私の目標を説明する簡単な例です。
ありがとう