|
#1
|
|||
|
|||
Массив кнопок
Как создать массив кнопок? пишу так
Код:
MassivButtnes: array [0..250,0..250] of TButton; |
#2
|
||||
|
||||
Код:
var ButtonArr: array [0..15] of TButton; i: Integer; begin for i:=0 to Length(ButtonArr)-1 do begin ButtonArr[i]:=TButton.Create(Self); ButtonArr[i].Parent:=Self; ButtonArr[i].Left:=i*40; ButtonArr[i].Top:=i*20; ButtonArr[i].Caption:=IntToStr(i); end; end; Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
sandysman (02.03.2013)
|
#3
|
|||
|
|||
Вот тоже самое считай писал и ничего, но я только с двух мерным пробовал, с ним же так же будет?
|
#4
|
||||
|
||||
ну только еще один цикл добавится
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
sandysman (02.03.2013)
|
#5
|
|||
|
|||
Еще такая проблема, как теперь назначить событие на клик кнопки из массива? Надо переписывать класс? Или самому создать это событие?
|
#6
|
||||
|
||||
Цитата:
Код:
... private procedure MyClick(Sender: TObject); ... procedure TForm1.MyClick(Sender: TObject); begin ... ... end; Код:
ButtonArr[i].OnClick:= MyClick; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
sandysman (03.03.2013)
|
#7
|
|||
|
|||
Я просто неудачник, подобно пишу, так же практически, маленько не в том месте правда, и в результате получаю ошибку которую не могу найти и понять
|
#8
|
|||
|
|||
>>так же практически, маленько не в том месте
Вот "не в том месте" это и самое главное. |