Mehrere If-Abfragen

[Matze33]

Zitat von mkinzler:

Image1.Top+Image1.Height wird wohl nie geanu den Wert von Panel1.Top haben

Doch klar. Image1.Top+Image1.Height ist ja dann praktisch das untere Ende vom Bild. Und Panel1.Top ist halt das obere vom Panel xD
Wenn ich also springe sinkt der Wert von Image1.Top+Image1.Height auf eine Größe, die über Panel1.Top liegt, liegt aber zwischndurch genau auf der Höhe.

Image1.Top:=372
Image1.Height:=43
Image1.Top+Image1.Height:=415
Panel1.Top:=375
Sprung: 14*5px=70px
415-70=345
345<375
Und da ich in 5er Schritten gehe, wird genau die Position auch erwischt zwischendurch (2x).

Zitat von mkinzler:

BTW: Boolean-Werte nie auf True überprüfen. .Visible ist ja sschon ein Boolean. Zudem ist wahr als nicht falsch (0) deklariert und die Konstante True als 1.
Ich würde auch anders einrücken

Das geht mir jetzt zu schnell. Wie machst du es denn?

[Hobby-Programmierer]

Markus meinte das in etwa so:

Delphi-Quellcode:

if Image1.Visible Then
  ...

[pustekuchen]

Wie wäre es erstmal deinen Variablen vernünftige Namen zu geben?
Dann ist es viel angenehmer und erspart unnötige erklärungen.

[Matze33]

Zitat von pustekuchen:

Wie wäre es erstmal deinen Variablen vernünftige Namen zu geben?
Dann ist es viel angenehmer und erspart unnötige erklärungen.

Wo liegt denn bitte an "Wiederholungen" das Problem?...

[DeddyH]

Ich vermute, er meinte statt Variablen die Komponenten.

[Matze33]

Jo, hab ich auch das Gefühl. Also nehm ich dazu mal Stellung: Es ist einfacher immer Image[x] zu schreiben, als Image_Mario_guckt_nach_links oder sowas, auch wenns jetzt übertrieben ist. Abgesehen davon ist es ja eigentlich auch nur für mich. Außerdem spielt das ja für meine eigentliche Rolle gar keine Frage. Deshalb auch die Bitte, jetzt wieder zum Problem zurück zu kommen^^

[DeddyH]

Wie Markus bereits sagte, hast Du keine Toleranz eingebaut, die Abfrage wird also nicht wahr, wenn die aktuelle Y-Position nicht aufs Pixel genau stimmt. Und nochmal zur Namensgebung: wir kennen Deine Oberfläche nicht, können also mit Panel3 oder so nichts anfangen. Jetzt sag Du mir doch, was besser lesbar ist:

Delphi-Quellcode:

procedure TForm1.Image23Click(Sender: TObject);
begin
  Label34.Caption := Edit12.Text + ':' + Label42.Caption;
end;

oder

Delphi-Quellcode:

procedure TFormMain.imgFigurClick(Sender: TObject);
begin
  lblSpielstand.Caption := edtPunkte.Text + ':' + lblZeit.Caption;
end;

(Das ist zwar immer noch schlechter Stil, aber man kann anhand der Bezeichner zumindest erahnen, was die Komponenten darstellen sollen).