habe ein seltsammens problem.
mit folgender klasse:
Code: Alles auswählen
TTest = class(TComponent)
private
fName:String;
FVisible:Boolean;
fBrush:Tbrush;
procedure SetSichtbarkeit(Value:Boolean);
function GetSichtbarkeit:Boolean;
public
published
property name:String read fname write FName;
property sichtbar:Boolean read GetSichtbarkeit write Setsichtbarkeit default True;
property brush:TBrush read Fbrush write fBrush;
end;
property brush:TPoint read fPosition write fPosition;
und in private dann Fposition:TPoint defnieren bekomme ich d ie obengenannte fehlermeldung... was mache ich falsch ????