Problem mit Panel

[mace]

Zitat von KennyStylelezz:

yo hallo,
wie der Titel schon sagt habe ich ein Problem, zum Thema Panel.

Fangen wir mal von Vorne an, ich soll über die Ferien ein Spiel programmieren und bin auch noch relativ unerfahren im
Umgang mit Delphi und sonstigen Programmiersprachen. Im Grunde geht es bei diesem Spiel darum, dass ein Panel eine anderes
treffen soll und dass man so Punkte bekommt, und genau da liegt das Problem.

Hier ist mein bisheriger "Fortschritt" mit der Prozedur:

Delphi-Quellcode:

procedure tform1.zaehlen;
begin
x:=0;
a:=1;
if ((panel2.left>=224) and (panel2.left<=272)
and (panel3.top>=0) and (panel3.top<=48))
then x:=a+x;
[b]edit1.Text:=floattostr(x);[/b]
end;

Bist du dir sicher, dass du diese Anweisung immer durchgehen möchtest?
Vllt liegt da dein Problem?!

Wenn diese Anweisung mit von der Bedingung abhängig sein soll, muss nach dem THEN ein Block eingeleitet werden:

Delphi-Quellcode:

if ((panel2.left>=224) and (panel2.left<=272) and (panel3.top>=0) and (panel3.top<=48))  then
  begin
    x:=a+x;
    edit1.Text:=floattostr(x);
  end;

Hoffe ich konnte dir helfen.


Grüße..