I
I
ingbeets2016-05-28 13:01:39
1C
ingbeets, 2016-05-28 13:01:39

How to make an external processing-game "Battleship"?

How to make an external processing-game "Battleship"?
At me it is impossible here it How in the managed form of external processing at creation to add buttons?
Moreover, I can’t create buttons programmatically at all.
I can not bring to mind the code from here www.forum.mista.ru/topic.php?id=597139

&НаСервере 
Процедура СоздатьПолеКнопок()
    ГруппаКнопок = Элементы.ГруппаКнопок;
    Для ии = 0 по 9 Цикл
        ИмяГруппы = "ГруппаКнопок"+ии;
        НоваяГруппа = Элементы.Добавить(ИмяГруппы, Тип("ГруппаФормы"), ГруппаКнопок);
        НоваяГруппа.Вид = ВидГруппыФормы.ОбычнаяГруппа;
        НоваяГруппа.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Горизонтальная;
        НоваяГруппа.ОтображатьЗаголовок = Ложь;
        
        Для йй = 0 по 9 Цикл 
            ИмяКнопки = "Кнопка"+(ии*10+йй);
            НоваяКнопка = Элементы.Добавить(ИмяКнопки, Тип("КнопкаФормы"), НоваяГруппа);
            НоваяКнопка.Вид = ВидКнопкиФормы.ОбычнаяКнопка;
            НоваяКнопка.Заголовок = Прав("0"+(ии*10+йй),2);
            НоваяКнопка.ИмяКоманды = "КомандаДляКнопок";
        КонецЦикла;
    КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура СоздатьКнопки(Команда)
    СоздатьПолеКнопок();
КонецПроцедуры

&НаКлиенте
Процедура КомандаДляКнопок(Команда)
    Кнопка = ЭтаФорма.ТекущийЭлемент;
    Сообщение = Новый СообщениеПользователю;
    Сообщение.Текст = "Нажата "+Кнопка.Имя;
    Сообщение.Сообщить();
КонецПроцедуры

Answer the question

In order to leave comments, you need to log in

2 answer(s)
I
ingbeets, 2016-06-08
@ingbeets

Understood the error. I didn't add command "CommandForButtons"

Didn't find what you were looking for?

Ask your question

Ask a Question

731 491 924 answers to any question