Hallo Delphi-Praxis-User
,
momentan bin ich dabei Delphi zu erlernen und ein Schiffe versenken zu programmieren.
Ich habe mir vorgestellt das Ganze mit Canvas zu erstellen und habe ein Gitter in eine PaintBox gezeichnet, für was ich schon ewig gebraucht habe, da ich null Ahnung habe, wie die Befehle heißen und wie die Syntax aussieht. Nun habe ein 12x12 Gitter und würde gerne wissen, wie ich die Zellen einzeln ansprechen kann (OnClick, Wert zuweisen, ob Schiff gesetzt, nicht gesetzt). Ich denke man könne das am Besten mit Koordinaten erledigen. Mein Gitter habe ich mit folgender Prozedur gezeichnet, wobei MaxFelder=12 und Höhe,Breite,Position der Zelle im Vorraus festgelegt:
Code:
Canvas.Brush.Style := bsClear;
for x := 1 to MaxFelder do
for y := 1 to MaxFelder do
begin
Pen.Color := clGray;
Rectangle(CellRect(Canvas, x, y));
end;
Ich hoffe ihr könnt mir helfen,
MfG Lasbr
#Achja vor lauter lauter vergessen: Was ich suche sind zum Beispiel Onclick Befehle mit bestimmter Koordinate einer Zelle