Spieleprogrammierung Hilfe benötigt

[Mavarik]

Da haben wir es wieder...

9 Button 9x die Onclick Procedure kopiert und dir Werte für die Lineto's per Hand geändert.
Und nach dem kopieren sind noch Zeilen hinzugekommen...
Aber nur vereinzelt...

Versuche es mal mit.

Delphi-Quellcode:

Procedure TForm1.ButtonAllClick(Sender:TObject);
var 
  X,Y : Integer;
begin
  X := TButton(Sender).Left;
  Y := TButton(Sender).Top;
  TButton(Sender).Visible := false;

  AddGewinliste(TButton(Sender).Tag);

  if Spieler = 1 
    then begin
           Spieler := 2;
           MaleX(X,Y);
         end
    else begin
           Spieler := 1;
           MaleO(X,Y);
         end;

  TestGewonnen;
end;

Mavarik