Procedure bei Mausklick ausführen

[Maurooon]

Hey Leute,

ich sitze schön länger an einem kleinen Problem fest. Ich bin gerade dabei, ein kleines Minispiel zu programmieren. Es geht um Panzer, die bei Mausklick schießen. Das Bewegen etc. klappt bereits, nur habe ich schon etliche Möglichkeiten probiert, den Schuss auszuführen, aber es funktioniert nicht.

Mein Projektil ist ein kleines rundes Shape und zurzeit schiesse ich wie folgt:

Im MouseDown Event führe ich eine Prozedur aus, die dann über eine Funktion die Schussbahn berechnet und einen Timer startet, der dann das Shape auf dieser Schussbahn bewegt.

Ich habe mir auch schon an verschiedenen Positionen die Koordinaten des Shapes ausgegeben um zu überprüfen, ob es sich überhaupt bewegt, und das tut es nicht. Ich habe deshalb vermutet, dass ich das nicht in MouseDown schreiben darf. Deshalb habe ich es mal per GetKeyState in OnKeyDown geschrieben. Das Shape bewegt sich nun mit dem Panzer, was es auch soll, sofern ich die linke Maustaste gedrückt halte, aber auf der Schussbahn bewegt es sich nicht...

Vielleicht findet ja jemand direkt schon den Fehler oder hat eine bessere Herangehensweise an einen Schuss.

LG

[DeddyH]

Zitat von Maurooon:

Im MouseDown Event führe ich eine Prozedur aus, die dann über eine Funktion die Schussbahn berechnet und einen Timer startet, der dann das Shape auf dieser Schussbahn bewegt.

Das klingt für mich doch gar nicht mal verkehrt. Was genau funktioniert denn jetzt nicht?

[Maurooon]

Das Shape bewegt sich nicht wie es soll - also gar nicht. Eventuell habe ich auch die Prozedur falsch ausgeführt. Wie führe ich denn im Mousedown Event eine Prozedur aus und zwar nicht so, dass ich dafür die Maus gedrückt halten muss? Also einmal klicken und die Prozedur wird ausgeführt.

[DeddyH]

Wie sieht denn Dein Code aus? Ich habe mal schnell ein Formular mit 2 Shapes und einem Timer (Enabled initial auf false) gebaut, das Projektil bewegt sich.

Delphi-Quellcode:

procedure TfrmTest.shpPanzerMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    tmrSchuss.Enabled := true;
end;

procedure TfrmTest.tmrSchussTimer(Sender: TObject);
begin
  shpProjektil.Left := shpProjektil.Left + 1;
end;

[a.def]

Zitat:

Also einmal klicken und die Prozedur wird ausgeführt.

OnMouseUp?

[Maurooon]

mhmmmm... habe es so umgebaut wie Sie es vorgeschlagen haben. Das hier ist der Code:

Code:

function schussbahnberechnen(sx, sy, mx, my: Real):Integer;
begin
  result := round((my-sy) / (mx-sx));
end;

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then Form2.Timer1.Enabled := true;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
  sx, sy, mx, my: Real;
begin
  if (Form2.Image2.Visible = true) or (Form2.Image4.Visible = true) then begin//die anderen Fälle füge ich noch ein
   Form2.Shape1.Left := Form2.Image2.Left + 40;
   Form2.Shape1.Top := Form2.Image2.Top + 21;
   mx := Mouse.CursorPos.X;
   my := Mouse.CursorPos.Y;
   sx := Form2.Shape1.Left + 3;
   sy := Form2.Shape1.Top + 3;
  end;
  Form2.Shape1.Visible := true;
  if (mx > (Form2.Shape1.Left + 3)) then begin//die anderen Fälle füge ich noch ein
   Form2.Shape1.Left := Form2.Shape1.Left + 1;
   Form2.Shape1.Top := Form2.Shape1.Top + schussbahnberechnen(sx, sy, mx, my);
  end;
  Form2.Label1.caption := IntToStr(Form2.Shape1.Left);//zur Kontrolle-->ändert sich nicht
end;

Finden Sie einen Fehler? Der Timer scheint nicht enabled zu werden(enabled initial ist auf false).

LG

[DeddyH]

Lass doch mal die ganzen Referenzen auf die Formularvariable Form2 weg, die brauchst Du nicht. Dann solltest Du niemals auf true prüfen, das kann ins Auge gehen. Und zu guter Letzt: bist Du sicher, dass FormMouseDown das richtige Ereignis ist?