Морской бой

[manchester_alan]

Здрасьте, можете подсказать, на каком компоненте лучше всего размещать корабли и вообще играть??

[newerow1989]

Лично я все объекты перерисовываю на Label (стираю старое место, рисую новое)

[manchester_alan]

Label же где надпись? А надо же как бы матрицу ну или поле....

[newerow1989]

Вот образец (нарисовать квадрат):

procedure Kw(x,y:integer;s:string);
const delta=20;
begin
   x:=x*delta;
   y:=y*delta;
   With Form1.Label1.Canvas do
   begin
      Pen.Color:=clBlue;
      Pen.Width:=3;
      Brush.Color:=clFuchsia;
      RoundRect(x,y,x+delta-1,y+delta-1,15,15);
      Font.Color:=clYellow;
      Font.Size:=14;
      TextOut(x+6,y+7,s);
   end;
end;