Hallo liebe Community,

Folgendes Problem:

Gegeben ist ein Programm mit 4 Buttons.
Ein Button ist der Startbutton, ein Button ist der Endbutton.

Welcher der Buttons der Start und Endbutton ist, lege ich vorher beliebig fest (Startbutton kann aber nicht gleich Endbutton sein).

Mit einem Klick auf einen beliebigen Button möchte ich dann erkennen, ob es der von mir festgelegte Startbutton ist. Wenn true, folgt nun die Suche nach dem richtigen Endbutton. Wenn ich den richtigen Endbutton erwische, Aufgabe erledigt. Wenn ich jedoch den falschen Button drücke, soll das Programm auch den bereits gefunden Startbutton zurücksetzen.

Die Aufgabenstellung klingt so verdammt einfach aber mir explodiert gleich der Kopf ...

Anregungen/Lösungsansätze?

Ich habe das nicht ganz verstanden. Klingt irgendwie wie ein Spiel?

Ich würde allen 4 Buttons ein einzigartiges Tag geben (0,1,2,3) und allen Buttons denselben OnClick verpassen und dann im OnClick prüfen:

markieren

Delphi-Quellcode:

 if TButton(Sender).Tag = iButtonStart then
  begin
   // tue etwas, wenn der gedrückte Button der Startbutton ist
  end
 else if TButton(Sender).Tag = iButtonEnd then
  begin
   // tue etwas, wenn der gedrückte Button der Endbutton ist
  end;

Irgendwo dann noch in Variablen festlegen, welcher Button der Start- und Endbutton ist:

markieren

Delphi-Quellcode:

iButtonStart := 2;
iButtonEnd := 1;

Erstmal vielen Dank für die schnelle Antwort!
Du hast recht, es soll ein Spiel werden.
Ist als Minimalbespiel gedacht, für ein Schachspiel mit 1-Zug-Matt Aufgaben.

Vielen Dank erstmal, ich werde mal versuchen das so zu implementieren!

Oder direkt

markieren

Delphi-Quellcode:

cButtonStart := DerStartbutton;
cButtonEnd := DerEndbutton;



if Sender = cButtonStart then

.

Aber wenn man die 1-4 per Random erzeigen will, dann kann das mit dem .Tag auch ganz praktisch sein.

Vielen Dank auch an dich!

Die Methode mit Sender gefällt mir sehr gut! Auch einfach umzusetzen ohne alle Buttons taggen zu müssen.

Habe den Code jetzt so eingebaut, funktioniert aber leider nicht

markieren

Code:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Sender = Button1 then
  begin
    Memo1.Text:='Hallo';
  end;
end;

Bekomme keine Ausgabe. Anscheinend erkennt er nicht ob der Button geklickt wurde oder nicht.

Hast du ALLEN 4 Buttons das Event "ButtonClick" zugewiesen? Hast du das Event selber geschrieben oder kommt das über den Objektinspektor?