Привет всем.
Возник вопросик, можно ли создать массив из TSpeedButton'ов?(Для удобства работы - морской бой) Мне нужно создать два таких массива по 100 элементов (10х10). Можно ли это организовать? Я читал в DRKB по массив чекбоксов. Но чего то с баттонами не работает. Помогите, пожалуйста.
Заранее спасибо.

конечно можно=)
ток зачем тебе для морского боя 200 кнопок? может лучше сделать фон ввиде картинке и на ней дапустим рисовать чёнить типа при нажатии и если мимо то просто крестик нарисовать =)))


Это сообщение отредактировал(а) FRAGNATIC - 11.12.2005, 19:32

Код

var   btns: array [1..10] of TButton;   i: integer; begin   for i:=low(btns) to high(btns) do   begin     btns[i]:=TButton.Create(form1);     btns[i].Width:=10;     btns[i].Height:=10;     btns[i].Top:=10*i;     btns[i].Left:=10;     form1.InsertControl(btns[i]);   end; end;

что-то типа этого
тока не забудь их потом все удалить (free )
а для этого масив лучше сделать глобальной переменой )

Цитата(Nikolasha @ 11.12.2005, 19:08)

можно ли создать массив из TSpeedButton'ов

Цитата(FRAGNATIC @ 11.12.2005, 19:40)

btns: array [1..10] of TButton; ... btns[i]:=TButton.Create(form1);

Наверное правельнее будет

Код

btns: array [1..10] of TSpeedButton;

Код

btns[i]:=TSpeedButton.Create(form1);

Poseidon
а разница?
я пример привёл
а там уже хоть из чего угодно делай)

Спасибо за ответы. Только вот нужен двумерный массив.
Еще один вопрос. у меня случайным образом генериться массив кораблей следующего типа:
0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 1 1
0 0 1 1 1 0 0 0 0 0
0 0 0 0 0 0 0 0 1 0
1 0 0 0 0 0 0 0 1 0
1 0 0 0 0 0 0 0 0 0
1 0 1 1 1 1 0 0 1 0
0 0 0 0 0 0 0 0 1 0
1 0 1 0 1 0 1 0 0 0
0 0 0 0 0 0 0 0 0 0

В нем, соответственно, еденички отвечают за палубы у корабликов. На форме лежат 10х10(=100 ) кнопок. Как можно организовать чтобы на кнопочках кот. соответствует еденичка появилась определенная картинка?

Nikolasha
ну если чтоб попроще то создавай массив из кнопок 10X10 и у них есть property Tag, в нем можешь хранить значения 0/1(палуба/море) .
Добавлено @ 22:15
ну и соответственно картикнки грузить в зависимости от этого значения.

А каким образом этот массив разместиться на форме где мне нужно?

Цитата

А каким образом этот массив разместиться на форме где мне нужно?

уже было....

Цитата

btns[i].Width:=10; btns[i].Height:=10; btns[i].Top:=10*i; btns[i].Left:=10;

Думаю в данной ситуации StringGrid бы вполне подошел вместо такго дикого количесвта кнопок.

Спасибо, все получилось.
Еще один вопрос: как можно теперь обрабатывать события onclick для этих кнопок (можно ли как нибудь использовать as Sender)?
Добавлено @ 17:05

Код

for i:=low(btns) to high(btns) do   begin     btns[i]:=TSpeedButton.Create(form1);     btns[i].Width:=33;     btns[i].Height:=33;     btns[i].Top:=(33*(((i-1) div 10)+1));     btns[i].Left:=33*(i-(((i-1) div 10)*10)) ;     form1.InsertControl(btns[i]);   end;

Вот код для того, чтобы кнопочки встали в квадрат 10x10.

И еще вопрос. Как с этот массив убрать из памяти? с помощью free можно? Если да, то как?

Код

procedure TForm1.BtnClick(Sender: TObject); begin   showmessage(IntToStr(TButton(sender).Tag )); end; procedure TForm1.Button1Click(Sender: TObject); var   btns: array [1..10] of TButton;   i: integer; begin   for i:=low(btns) to high(btns) do   begin     btns[i]:=TButton.Create(form1);     btns[i].Width:=10;     btns[i].Height:=10;     btns[i].Top:=10*i;     btns[i].Left:=10;     btns[i].Tag:=i;     btns[i].OnClick:=BtnClick;     form1.InsertControl(btns[i]);   end; end;

TButton(sender) делай с ним что хош
насчёт освобождения поидеи должен сам освобождатся тк кнопки лежат на форме
ну или просто мож в цикле FRee

Не пашет, на стадии компиляции выдает ошибку следущего содержания:
Expected an identifier but invalid character character #160 found


Что не так?

Я бы рекомендовал использовать TImage - 100 штук. либо TImageList.
В этом случае ты без проблем на TImsage можешь рисовать все, что угодно, на каждом обрабатывать OnClick.
Да и выглядеть будет красивее, по-моему.

Писал такую штуку тока на С++ в StringGrid. Удобно и проще некуда.

P.S. А как насчет того что вокруг корабля на расстоянии одной клетки не может быть другого корабля? А твоя маска поля боя это не предусматривает, добавь еще вокруг каждого корабля "оградку" к примеру -1