Forum: Multimedia
Delphi
by Aenogym,
21. Jan 2005
überprüf mal, ob die Interval-Eigenschaft beider timer auch gleich ist
das liegt an progressbar1.position := 0;
kannst du ja wieder rausnehmen.
die eigenschaft MAX der progressbar auf den maximalwert einstellen (also die höhe des bildes, bzw. bei der anderen bar die briete des bildes).
dann in dne timern die if's folgendermaßen abändern:
if progressbar1.position = progressbar1.max...
Forum: Multimedia
Delphi
by Aenogym,
21. Jan 2005
hi,
du musst die maustaste solange gedrückt halten. wenn du loslässt, ist die progressbar wieder auf null und dein abwurf-code wird ausgeführt.
alles klar?
Aenogym
Forum: Multimedia
Delphi
by Aenogym,
21. Jan 2005
hi.
mal ein fertiges stückchen code dazu:
einen TTimer aufs formular. interval sehr klein stellen und ins OnTimer event folgendes:
if progressbar1.Position=100 then
progressbar1.step:=-10
else if progressbar1.Position=0 then
progressbar1.step:=10;
progressbar1.Stepit;
Forum: Multimedia
Delphi
by Aenogym,
20. Jan 2005
hi egarF,
so zum beispiel:
procedure TForm1.SchussClick (Sender: TObject);
const
breite = 350;
hoehe = 100; //keine ahnung ;)
Forum: Multimedia
Delphi
by Aenogym,
20. Jan 2005
hi,
es kommt immer drauf an, wie das spiel werdne soll. für ein wirklich realistisches erlebnis sollte man per maus zielen können und die wurfkraft dannn bestimmen können (zB maus schnell nach oben bewegen). das dürfte für dich allerdings ziemlich schwirig werden.
deshalb mal was wirklich simples als denkanstoß von mir
du hast dein dart-bild und weißt natürlich auch dessen ausmaße in...