Hilfe mit Canvas für Schiffe versenken.

**Lasbr**

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:

markieren

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

Hilfe mit Canvas für Schiffe versenken.

Hilfe mit Canvas für Schiffe versenken.

Forumregeln