das ist die "neue klasse" habe ein paar änderung gemacht die ich übersehen hatte
Delphi-Quellcode:
TStdObj = class
private
FName:String; // Enhält den Namen des Obj
FCaption:String; // Enhält das was Angezeigt wird
FTag:Integer; // unBelengt
Fx:Integer; // die X Position vom OBJ
Fy:Integer; // die Y Position vom ObJ
fw:Integer; // Die Breite vom Obj
Fh:Integer; // die Höhe vom Obj
procedure SetCaption(Caption:String);
procedure SetNamen(Namen:String);
public
constructor Create(obj:TStdObj);
destructor Free;
procedure Draw;
published
property Name:string read fName write SetNamen;
property Caption:string read fCaption write SetCaption;
end;
ps: warum wird Name als schlüsswort hier angezeigt und nicht als normale variable ?