Danke schonmal für deine Mühe, den spielfeldclick-Quellcode habe ich schon ausprobiert, ich muss nur noch die Möglichkeit ergänzen, dass man nicht auf die Spielsteine der eigenen Farbe klicken darf.
Die pruefen-Funktion werde ich mir gleich mal überlegen.
edit:
Delphi-Quellcode:
das ist nun der fertige spielfeldclick-code
procedure TForm1.spielfeldClick(Sender: TObject);
begin
if (feld[spielfeld.Col,spielfeld.Row]=0) then
begin
feld[spielfeld.Col,spielfeld.Row]:=dransein;
case dransein of
rot : dransein := blau;
blau: dransein := rot; end;
spielfeld.Refresh; end
else Application.MessageBox('Das Feld ist schon belegt!', 'Fehler');
end;