Procedure während gedrückthalten eines Buttons

[F1nal]

<- Bild der Aufgabe

Wir haben als Schulaufgabe, diese Aufgabe bekommen. Ich und meine Freunde verzweifeln nun aber schon seit heute morgen und wissen nicht wie wir dass mit dem gedrückthalten machen sollen. Ich hoffe uns kann hier wer helfen. Ein nachfragen beim Lehre ist aktuell leider nicht möglich weshalb ich hier nachfrage.

Vielen Dank!
Leon

[Der schöne Günther]

Hallo-

Die "Befehlsschaltfläche" ist wohl ein ganz normaler TButton , richtig?

Ihr habt gesehen dass es für den Button nicht nur OnClick gibt, oder? Protipp: Es hat was mit der Maus zu tun.

[F1nal]

Ja es handelt sich um einen normalen Button, wir haben auch die anderen Ereignisse gesehen wissen jedoch nicht welche dass tut, was wir möchten.

[DieDolly]

Zitat:

Ja es handelt sich um einen normalen Button, wir haben auch die anderen Ereignisse gesehen wissen jedoch nicht welche dass tut, was wir möchten.

Probieren geht über studieren. Oder einfach in der Doku nachgucken.

[F1nal]

Delphi-Quellcode:

procedure TF_TagNacht.Bt_BlitzMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  B := true;
  if B = true then
    begin
     Im_Wolke1.Picture.LoadFromFile('Regen.ico');
    end;
end;

procedure TF_TagNacht.Bt_BlitzMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 B := false;
  if B = false then
    begin
     Im_Wolke1.Picture.LoadFromFile('Wolke.ico');
    end;
end;

Wir haben es jetzt nach ein bisschen rumprobieren so gelöst. Danke für den Tipp mit der Maus. Wir waren davon ausgegangen dass diese Ereignisse nur für bewegungen mit der Maus sind.

[DieDolly]

Nicht auf True und False vergleichen
Und wenn dann vereinfachen

Delphi-Quellcode:

procedure TF_TagNacht.Bt_BlitzMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Im_Wolke1.Picture.LoadFromFile('Regen.ico');
end;

procedure TF_TagNacht.Bt_BlitzMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Im_Wolke1.Picture.LoadFromFile('Wolke.ico');
end;

Zitat:

Wir waren davon ausgegangen dass diese Ereignisse nur für bewegungen mit der Maus sind.

Dafür gibt es MouseMove.

[F1nal]

Zitat von DieDolly:

Nicht auf True und False vergleichen
Und wenn dann vereinfachen

Delphi-Quellcode:

procedure TF_TagNacht.Bt_BlitzMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Im_Wolke1.Picture.LoadFromFile('Regen.ico');
end;

procedure TF_TagNacht.Bt_BlitzMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Im_Wolke1.Picture.LoadFromFile('Wolke.ico');
end;

Ok und warum nicht?

[DieDolly]

Das können andere besser erklären als ich. Man macht es einfach nicht, da es nicht korrekt ist und zu Fehlern führen kann. Man vergleicht mit if B then und if not B then . Aber das ganze Boolean-Zeug brauchst du da nicht.

[Sherlock]

Klasse!

In der Tat ist es auf den ersten Blick verwirrend, MouseDown/MouseUp zu sagen, aber angesichts von MouseMove (das sich um alle Bewegungen der Mouse im Bereich des Buttons kümmert) und dem Drang von Entwicklern doch irgendwie kurze Namen haben zu wollen, hat man eben statt OnMouseButtonDown nur OnMouseDown.

Sherlock

[Der schöne Günther]

Zitat von DieDolly:

Und wenn dann vereinfachen

Zitat von DieDolly:

Aber das ganze Boolean-Zeug brauchst du da nicht.

Wenn man das jemandem schon so hinknallt sollte man auch etwas genauer hinsehen.

Weißt du ob das B nicht irgendeinen Sinn hatte? Der Vergleich auf B war überflüssig, ja, aber ob es das Setzen von B auch war kann niemand außer ihm selbst beurteilen.