dumdidum... du kansnst einfach das jojo umschreiben.
Delphi-Quellcode:
procedure Jojo.bewege;
begin
hatStift.bewegeUm(zDy);
zFaden:=hatStift.vPosition;
end;
einfach aus dieser Funktion diese machen:
Delphi-Quellcode:
procedure Jojo.bewege(y:integer);
begin
hatStift.bewegeUm(y);
zFaden:=hatStift.vPosition;
end;
Das musst du auch oben in der Klasse machen!
und dann musst du das y immer selber angeben in deinem code.
Delphi-Quellcode:
//abwärts
jojo.bewege(5);
jojo.bewege(3);
//aufwärts
jojo.bewege(-3);
jojo.bewege(-5);
Im übrigen ist es eine Schweinerei, dass die klasse nicht TJojo heisst...
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1