Forum: Object-Pascal / Delphi-Language
by Smiley,
11. Mär 2022
Nein der Timer liegt nicht im MainForm, das den Ball aufruft.
MainForm legt eine Instanz von BallA an und der Ball soll auf der Paintbox oder dem Image von MainForm laufen.
Der Timer wird in TBall erstellt.
MainForm kann eine weitere Ball-Instanz erstellen und zusätzlich auf der Paintbox oder auch einem anden Control laufen lassen.
Der zweite Ball kann mit BallB.Speed z.B. auch eine andere...
Forum: Object-Pascal / Delphi-Language
by Smiley,
11. Mär 2022
Ja mach ich.
Unsere Meldungen haben sich überschnitten, war noch am suchen und schreiben, da hast Du schon geantwortet, das habe ich erst gesehen, nachdem ich es abgeschickt habe.
Änderung ist schon eingebaut.
Jetzt muss ich mich aber wieder mal meinem eigentlichen, kleinerem Problem zuwenden, wie ich mein einfaches Lernprojekt fortsetze.
Zu Anfang dachte ich es sei leichter mit einem...
Forum: Object-Pascal / Delphi-Language
by Smiley,
11. Mär 2022
Habe den Fehler jetzt gefunden.
Der DefSkin Path war schon richtig, denn der Skins Ordner liegt im gleichen Ordner wie die .exe Datei.
Das Problem ist der Eintrag in der .ini Datei für den SkinPath.
Dieser wird nur beim ersten Aufruf des Programmes einmal gesetzt und liest ihn dann immer wieder, auch wenn die .exe jetz an einem anderen Ort liegt.
Dort war noch der Pfad aus der entpackten .rar...
Forum: Object-Pascal / Delphi-Language
by Smiley,
11. Mär 2022
Im Skins Ordner ist ein Ordner Blue mit den Bildern und der Bounce.ske Datei.
Habe versucht die .ske in Skins zu legen, kommt aber der gleiche Fehler.
Forum: Object-Pascal / Delphi-Language
by Smiley,
11. Mär 2022
Beim compilieren bekomme ich keine Fehler, nur bei der ausführung.
Habe das Skins und SpriteRes Verzeichnis auch noch in das Prjektverz. kopiert und neu kompiliert.
Beim aufrufen der .exe Datei kommt die angehängte Meldung.
Forum: Object-Pascal / Delphi-Language
by Smiley,
11. Mär 2022
@Venice2
Danke für Deine Hilfe Venice2
Das mit den $Region´s kannte ich noch gar nicht.
Tolles Feature um den Quelltext lesbarer (zusammmenklappbar über mehrere Proceduren) zu machen.
Die procedure InitPath verwirrt mich etwas. Die beiden If/else Zweige führen den gleichen Befehl aus, habe ich da etwas übersehen ?
Möglicherweise ein Überbleibsel aus einer Zeit als TiniFile.Create noch...
Forum: Object-Pascal / Delphi-Language
by Smiley,
9. Mär 2022
Mir fällt gerade auf, ich sollte dem Shape auch sagen welche Form es annehmen soll.:wall:
Forum: Object-Pascal / Delphi-Language
by Smiley,
9. Mär 2022
Danke Stahli für Deine Antwort.
Das zuweisen des Balls habe ich mit:
shpBall := TShape.create(fSpielfeld);
shpBall.Left := 10;
shpBall.Top := 10;
shpBall.Pen.Color := fPenColor;
shpBall.Brush.Color := fBrushColor;
shpBall.SetParentComponent(fSpielfeld); <---
Forum: Object-Pascal / Delphi-Language
by Smiley,
9. Mär 2022
Hallo Delphi Freunde
ich habe eine Klasse TBall erstellt, die soll einen Ball auf einem übergebenen TPanel fliegen lassen.
Das Aufrufende Form mit dem Panel1 soll eine Instanz von TBall erstellen und das Panel an die Klasse TBall übergeben.
In TBall erzeuge ich einen Timer der den Ball fliegen lässt (Kreis prallt an den Rändern ab).
1. Ich habe versucht das Panel als Property zu übergeben...