Hallo,
Delphi-Quellcode:
TForm1 ..
private
{ Private-Deklarationen }
bPlayer1: Boolean;
public
end;
Delphi-Quellcode:
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if StringGrid1.Cells[ACol,ARow] <> '' then
begin
// es steht was drin
// also lassen wir von dieser Zelle mal die Finder
// und verschwinden
Exit;
end;
if bPlayer1 then
begin
// es ist Spieler 1
StringGrid1.Cells[ACol,ARow] := '1';
end
else
begin
// es ist Spieler 2
StringGrid1.Cells[ACol,ARow] := '2 ';
end;
// Spieler umschalten
if bPlayer1 then
begin
bPlayer1:= False;
end
else
begin
bPlayer1:= True;
end;
end;
Und jetzt nur noch das "wer hat gewonnen" schreiben ...
Vergesst mein FormCeate nicht
- freie Form-Fläche suchen
- Doppelklick
Heiko