Frage zu "Ball"-Spiel / Zähler für Mausklick

[DeddyH]

Komisch, bei mir werden die Treffer sehr wohl angezeigt :gruebel:

[procedure22]

Ja, das wundert mich auch, dass es bei mir nicht geht. Der Code scheint ja zu stimmen, die Treffer werden ja in der TrefferBar ausgegeben. Bei mir bleibt die Bar allerdings weiß.

Kann das an meiner Delphi-Version o.ä. liegen? Ich hab Delphi 7

[DeddyH]

Ich hab auch Delphi 7. Hast Du beim Kompilat (im Archiv) dasselbe Problem?

[procedure22]

Du meinst, wenn ich die exe-Datei direkt starte? Ja, da ist es genauso.

Ich hab nochmal ein paar kleine Änderungen am Programm vorgenommen. Schau doch bitte nochmal, ob es bei dir jetzt auch noch funktioniert. Vielleicht hab ich ja auch aus Versehen den Code geändert.
Wenn es dann immernoch nicht klappt, geh ich mal an einen anderen PC damit.

[DeddyH]

Funktioniert bei mir. Welches Betriebssystem hast Du?

[edit] Sonst nimm das doch aus der TrefferBar raus und schreib es in die Caption, das sollte ja wohl funktionieren :zwinker: [/edit]

[procedure22]

XP

[procedure22]

Gute Idee, das in der Caption auszugeben :) Es geht doch bestimmt auch, dass die Treffer in der Caption UND in der TrefferBar angezeigt werden. Wie muss ich den Code denn dann ändern? Wenn ich TrefferBar.SimpleText durch Caption.SimpleText ersetze, gibt es Fehler.

Das ist seit jeher mein Problem mit Delphi. Ich weiß, was ich will aber weiß nicht, wie ich mich richtig ausdrücken soll :lol:

[DeddyH]

Delphi-Quellcode:

procedure TForm1.ShowTreffer;
begin
  TrefferBar.SimpleText := Format('Treffer: %d',[Zaehler]);
  Caption := Format('Spielfeld (Treffer: %d)',[Zaehler]);
end;

[procedure22]

Traumhaft :) Es funktioniert! Vielen Dank, sehr nett, dass du mir so lange geholfen hast!

Eine Sache ist da noch: Den Ball soll ich jetzt durch ein Image ersetzen. Es soll also dieser Ball hier herumhüpfen und nicht mehr der rote. Vielleicht kannst du mir nur einen Tipp (nicht den ganzen Code) geben, wie ich den Ball einbinden kann. Damit wäre mir sehr geholfen, den Rest schaffe ich dann sicher alleine ;)

Nochmals vielen Dank an dich und das Delphi-PRAXIS-Forum!

[DeddyH]

Du kannst entweder ein 2. TImage nehmen, die Ballgrafik dort hineinladen und dessen Position verschieben oder nur die Ballgrafik laden und per Canvas.Draw auf das 1. Image zeichnen.