Vier gewinnt

[alfold]

Zitat:

Zitat von tüftelboy (Beitrag 1098605)

und was für ein initaliersierungscode kommt zw begin und end?

Um zu zeigen das wir alle nett sind:wink:
Starte einfach Delphi neu.
Lege mal 1,2 Button und einen Label und ein Edit auf deine Form!
Doppelklick auf den 1. Button und schon steht sowas da:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObjekt);
begin
   //hier kanst Du nun folgendes reinschreiben
   Label1.Caption:= 'Dies ist mein erster Code';
end;

Dann auf start oder F9 und schau was passiert!
Experementiere nun mit den anderen Komponenten. Schau in die Hilfe von Delphi und auf den Objektinspektor/Ereignisse
In der Hilfe gibt es gute und einfache Beispiel!

Gruss alfold

[tüftelboy]

hallo leute mittlerweile hab ich das programm soweit das ich die panels und über dem panel jeweils 2 button habe um die kästchen auszufüllen
ich kann auch schon auf ein button klicken und es wird das panel ausgefüllt nur weiß ich leider nicht weiter:(
ich bitte um hilfe
interface

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
Panel8: TPanel;
Panel9: TPanel;
Panel10: TPanel;
Panel11: TPanel;
Panel12: TPanel;
Panel13: TPanel;
Panel14: TPanel;
Panel15: TPanel;
Panel16: TPanel;
Panel17: TPanel;
Panel18: TPanel;
Panel19: TPanel;
Panel20: TPanel;
Panel21: TPanel;
Panel22: TPanel;
Panel23: TPanel;
Panel24: TPanel;
Panel25: TPanel;
Panel26: TPanel;
Panel27: TPanel;
Panel28: TPanel;
Panel29: TPanel;
Panel30: TPanel;
Panel31: TPanel;
Panel32: TPanel;
Panel33: TPanel;
Panel34: TPanel;
Panel35: TPanel;
Panel36: TPanel;
Panel37: TPanel;
Panel38: TPanel;
Panel39: TPanel;
Panel40: TPanel;
Panel41: TPanel;
Panel42: TPanel;
Panel43: TPanel;
Panel44: TPanel;
Panel45: TPanel;
Panel46: TPanel;
Panel47: TPanel;
Panel48: TPanel;
Panel49: TPanel;
Panel50: TPanel;
Panel51: TPanel;
Panel52: TPanel;
Panel53: TPanel;
Panel54: TPanel;
Panel55: TPanel;
Panel56: TPanel;
Panel57: TPanel;
Panel58: TPanel;
Panel59: TPanel;
Panel60: TPanel;
Panel61: TPanel;
Panel62: TPanel;
Panel63: TPanel;
Panel64: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
a1,a2,a3,a4,a5,a6,a7,a8:integer;
implementation

{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible:=False;
Button2.Visible:=True;
Button3.Visible:=False;
Button4.Visible:=True;
Button5.Visible:=False;
Button6.Visible:=True;
Button7.Visible:=False;
Button8.Visible:=True;
Button9.Visible:=False;
Button10.Visible:=True;
Button11.Visible:=False;
Button12.Visible:=True;
Button13.Visible:=False;
Button14.Visible:=True;
Button15.Visible:=False;
Button16.Visible:=True;
begin
if a8=0 then a8:=1 else
if a7=0 then a7:=1 else
if a6=0 then a6:=1 else
if a5=0 then a5:=1 else
if a4=0 then a4:=1 else
if a3=0 then a3:=1 else
if a2=0 then a2:=1 else
if a1=0 then a1:=1
end;
begin
if a8=1 then Panel8.Color:=clgreen;
if a7=1 then Panel7.Color:=clgreen;
if a6=1 then Panel6.Color:=clgreen;
if a5=1 then Panel5.Color:=clgreen;
if a4=1 then Panel4.Color:=clgreen;
if a3=1 then Panel3.Color:=clgreen;
if a2=1 then Panel2.Color:=clgreen;
if a1=1 then Panel1.Color:=clgreen;
end;
end;
end.

[DeddyH]

Und was ist jetzt Deine Frage. Übrigens: benutze doch bitte Delphi-Tags, das wurde bereits gesagt. Und eine vernünftige Benennung Deiner Komponenten könnte auch nicht schaden.

[tüftelboy]

was denn für tags?

[tüftelboy]

meine frage habe ich doch schon im vorraus genannt.
das ih nicht weiß wie ich nun weiter machen soll um den nächsten spuieler nun an die reihe zu lassen

[DeddyH]

Bearbeite Deinen Beitrag, markiere den kompletten Code und klicke dann auf den Helm oberhalb des Editors, dann hast Du Delphi-Tags gesetzt. Und ich sehe in Deinem Code nichts von Spielern, sondern nur, dass da irgendwelche Komponenteneigenschaften gesetzt werden.