Danke erstmal, eien Frage hätte ich (erstmal) noch:
Ich habe schon mehrere Klassen, wenn ich meine eigene Klasse hinzufüge, steht dort,
ich soll Sie nicht TObjekte = class nennen, sonern TObjekte : class
Also hab ich die vorgefertigte Form-Klasse mit end; beendet. Funktioniert auch nicht,
wie starte ich jetzt die neue Klasse??
Code:
private
TObjekt = class
oldx, oldy, newx, newy, thickness: Integer;
vgf, hgf: Tcolor; //Vordergrundfarbe, Hintergrundfarbe
bstyle: TBrushstyle; //Brushstyle;
procedure saveobjekt(oldx, oldy, newx, newy, thickness: integer; vgf, hgf: TColor; bstyle: TBrushStyle );