Wie wär's wenn du den Aktuellen Schritt einfach in einer Variablen speicherst
Delphi-Quellcode:
var schritt: integer;
...
//erster Klick:
schritt := 1;
//zweiter Klick:
schritt := 2;
Als nächstes:
Um herauszufinden welches Label angeklickt wurde, würde ich in die Eigenschaft Tag die Nummer des Labels speichern. Also Label1.Tag := 1;
dann geht's so weiter:
Delphi-Quellcode:
procedure TForm.labelGeklickt(Sender: TObject);
begin
if TLabel(Sender) is TLabel then
begin
if schritt = 1 then
case TLabel(Sender).Tag of
1:Label1.caption := ''; //Damestein entfernen
2:Label2.caption := '';
...
end;
if schritt = 2 then
case TLabel(Sender).Tag of
1:Label1.caption := 'X'; //Damestein setzen
2:Label2.caption := 'X';
...
end;
if schritt = 1 then
schritt := 2
else schritt := 1;
end;
end;