Футбольный менеджер comes back, Теперь на Delphi Опции

[cooler]

Продолжаю написание игры футбольный менеджер.
Теперь на Delphi.
Т.к почти еще ничего не знаю надеюсь на вашу помощь.
Для начала: как сделать выбор 1 пункта из нескольких?
(при выборе в зависимости от пункта переменной присваивается значение)
Это могут быть "радио"- кнопки или выбор из списка.
Не могу разобраться как связать фому с unit'ом.

Набросайте пожалуйста как сделать так: см.рис


Вобщем пока проблемы интерфейса.
Ещё:
Как, например, задать background ?

Если есть можно дать ссылку на материал, где это описано.

[cooler]

Поразбирался. Понял ,что задал глупые вопросы...
У меня несколько ListBox'ов.
В одном- запасные,во втором - вратарь,в третьем защита...
Сделал так: выделяю в одном игрока, во втором, нажимаю кнопку и они заменяются.
Как сделать чтобы больше 2х не выделялось игроков?

И как связать эти ListBox'ы с массивом моих игроков?
Чтобы массивы менялись вместе со списками.
Неужели каждый раз переприсваивать?

[cooler]

А как выводить значения переменных или текст что-то типа writeln?

Неужели трудно ответить. Я же не пишу: "Сделайте- ка мне игру"
Просто элементарные вопросы,а мне в помощь

Может тему нужно перенести в написание игр???

[мисс_граффити]

Не трудно )
По порядку... С первой порцией, насколько я поняла, уже разобрался.

У меня несколько ListBox'ов.

Мне кажется, здесь лучше использовать ComboBox:

Виджет ComboBox - это выпадающий список элеметов, из которого может быть выбран только один.

что автоматически решает вопрос с

Как сделать чтобы больше 2х не выделялось игроков?

И как связать эти ListBox'ы с массивом моих игроков?
Чтобы массивы менялись вместе со списками.
Неужели каждый раз переприсваивать?

Если честно, не совсем поняла происходящее...
Кто в массиве? Кто в списках?

А как выводить значения переменных или текст что-то типа writeln?

Сначала надо кинуть компонент, КУДА будешь выводить текст.
Например, Label
А потом написать:

Label1.Caption:='текст';

Либо, если это типа сообщения о неправильном действии, можно так:

ShowMessage('текст');

[cooler]

Насчет ComboBox:
Понимаешь в чем дело,
У меня (на рис.) Слева запасные, а справа разделенный по группам основной состав.
Я сделал так: выделяешь одного и второго, нажимаешь заменить и они меняются.
Все бы хорошо, да только может выделиться больше двух, т.к разделены на группы
по позициям.
Про массив:
Я в listbox элементы из массива игроков записываю. А как после изменения сохранить состав?

Может есть другие варианты??

[мисс_граффити]

теперь стало понятнее )))
можно сделать так: несколько радиобаттонов (типа "заменить вратаря", "заменить кто-там-еще-бывает") и в зависимости от них - доступность выбора в листбоксе.
то есть (сорри, проверить наличие свойств не могу - делфи не установлена, пишу по памяти) типа такого:

ListBox1.Enable:=RadioButton1.Checked;

а вообще - лучше всего будет, если прикрепишь проект в архиве (без ехе-шника) - разговор будет предметным.

[cooler]

Проект выложил, если это уже можно называть проектом.

Как сделать чтобы какая-нибудь процедура выполнялась сразу после открытия формы?
(А то я сейчас все к кнопкам привязываю)

Потом, как обновлять значения radiobutton.checked ? Цикл сделать?
Пока какое поле с самого начало выбрано, то и доступно.

Обязательно нужно заставочку. Как посоветуешь сделать?
Появляется форма, на ней рисунок (хотя бы небольшой) и название.
Через несколько секунд она закрывается и появляется следующая.
Как лучше рисунок там организовать?




P.S. Не в тему:
Парадокс. Хотел сделать, чтобы одна форма грузилась, нажимаешь
кнопку, она закрывается, открывается другая. В новом проекте
сделал ч/з св-во visible - работает. Вставляю эту вещь в свой
проект - грузятся обе формы.

[мисс_граффити]

Как сделать чтобы какая-нибудь процедура выполнялась сразу после открытия формы?
(А то я сейчас все к кнопкам привязываю)

привесить на открытие формы ))
сам на свой вопрос ответил
единственное - я не очень поняла, речь о создании формы ("первом" открытии) или открытии после сворачивания? от этого зависит, какое событие выбрать.

Потом, как обновлять значения radiobutton.checked ? Цикл сделать?

Что значит "обновлять"? Если пользователь изменил, менять доступность листбоксов?
Опять же - на обработчик события...

Обязательно нужно заставочку. Как посоветуешь сделать?
Появляется форма, на ней рисунок (хотя бы небольшой) и название.
Через несколько секунд она закрывается и появляется следующая.
Как лучше рисунок там организовать?

именно несколько форм?
можно бросить компонент под рисунок (paintbox или image) и через несколько секунд делать его невидимым, например.

Парадокс. Хотел сделать, чтобы одна форма грузилась, нажимаешь
кнопку, она закрывается, открывается другая. В новом проекте
сделал ч/з св-во visible - работает. Вставляю эту вещь в свой
проект - грузятся обе формы.

через методы close/show не пробовал?

[striker]

Я такую же прогу делал года 2 назад, но все было проще гораздо.

Сообщение отредактировано: striker - 15.04.2008 20:08

[cooler]

Всё, большое спасибо с тем что было по-тихоньку разобрался

massev: array[1..5] of string = ('забил гол',
      'травма','желтая карточка','замена','красная карточка')


procedure TSimForm.Button2Click(Sender: TObject);
var i,r1,r11,r2,r22,usl,g1,g2:byte;
     r:byte;
     a:array[1..16] of integer;

begin
Listbox2.Items.Clear;
r:=whatteam;
 Label1.Caption:=rus_team[1]+' - '+rus_team[2];
Label2.Caption:=Floattostr(0)+' : '+Floattostr(0);
for i:=1 to 10 do
begin
team.init2('spartak');
randomize;
r1:=random(11);
randomize;
r11:=random(11);
randomize;
r2:=random(5);
randomize;
r22:=random(5);
if (r1=0) or (r1=1) then r1:=7;
if r11=0 then exit;
if r2=0 then r2:=5;
if r22=0 then exit;
if r2=1 then
begin
g1:=g1+1;
Label2.Caption:=Floattostr(g1)+' : '+Floattostr(g2);
end;
Listbox2.Items.add('>>>'+squad[r1]^.name+' '+massev[r2]);
randomize;
usl:=random(2);
if usl=1 then
Listbox2.Items.add('      '+squad2[r11]^.name+' '+massev[r22]);
 if r22=1 then
begin
g2:=g2+1;
Label2.Caption:=Floattostr(g1)+' : '+Floattostr(g2);
end;
end;

end;

В этой процедуре я конечно нагородил...
Идея такая: пока случайно выбираются события матча из массива massev и выводятся в Листбокс.
Нужно сделать чтобы события в него выводились с некоторой задержкой,
и чтобы матч можно было остановить, что-то сделать с составом и возобновить, не теряя
предыдущих событий. Если пользователь сделал замену игрока, соответственно выводим
сообщение об этом в Листбокс.


P.S Как лучше выводить таблицу?

Да, обновленная версия, если нужно:

Сообщение отредактировано: cooler - 15.04.2008 20:16

[cooler]

Сорри за такой код в процедуре.
Сейчас сам сел спустя 2 недели, половину не понял.
Подскажите идейку как реализовать выше перечисленное.
Нужно таймер, наверное, поставить и останавливать его, потом запускать?

[Better Kind]

Гораздо проще реализовать записями.

[cooler]

А подробнее?
Приведи примерчик

[cooler]

Помогите пожалуйста реализовать след. вещь.
У меня симулируется в текстовом режиме матч.
(выводятся события матча из строкового массива в listbox)

Нужно чтобы они выводились с определенной задержкой. (sleep наверное не туда ставлю)
Пользователь должен нажать на кнопку команда, где между массивами игроков
(запасных и основных) он произведет замены.
НУЖНо чтобы после того как он вернется к матчу он продолжился, т.е
опять с задержкой выводились события матча, и в этот же listbox вывелись
те элементы массивов, которые поменял пользователь.

Т.е, например Иванов->Петров

Здесь наверное событийная обработка. Как её реализовать?
Т.к у меня происходят изменения в команде сложно, то можно в примере
просто 2 массива реализовать, а их потом под своё адаптирую.

Прикладываю "легкую" и оч.демо версию.
Чтобы симулировать матч - кнопка "след. игра"

Код

  
massev: array[1..5] of string = ('забил гол',
      'травма','желтая карточка','замена','красная карточка');


procedure TSimForm.Button2Click(Sender: TObject);
var i,sobytie:byte;


begin
Listbox2.Items.Clear;
for i:=1 to 7 do
begin
  sobytie:=random(5);
  if sobytie=0 then sobytie:=1;
  Listbox2.Items.Add(massev[sobytie]);
  sleep(100);
end;
end;

Если я опять загнул и ничего не понять - пишите

[cooler]

Пожалуйста, помогите. Как это сделать?

[cooler]

Почему?...Почему никто ничего не пишет.
Напишите хоть почему не пишите

[мисс_граффити]

ты хочешь передавать управление?
то есть идет матч - пользователь, не останавливая его, меняет игроков - и матч продолжается?

[cooler]

Идет матч, пользователь нажимает на кнопку "пауза" /"стоп"(в матче), матч останавливается,
он заменяет игроков и возобновляет.
Хотя можно не останавливая, только матч будет идти не долго и пока пользователь прокопается в заменах
игра кончится

Мне хоть как-нибудь пока

P.S
Спасибо за отклик

[мисс_граффити]

я бы тогда сделала так примерно:

var massev: array[1..5] of string;

//обработчик срабатывания таймера
procedure TForm1.Timer1Timer(Sender: TObject);
var sobytie:byte;
begin
sobytie:=random(4)+1;
Listbox2.Items.Add(massev[sobytie]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
massev[1]:='гол';
massev[2]:='желтая карточка';
//и так далее
Timer1.Enabled:=false; //это можно в свойствах компонента Timer1
Timer1.Interval:=2000; //это тоже. задержка между событиями в игре
end;

//новая игра
procedure TForm1.Button1Click(Sender: TObject);
begin
Listbox2.Items.Clear;
Timer1.Enabled:=true;
end;

//кнопка стоп
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

[cooler]

Спасибо.
Я почти также уже сделал
Сам догадался.
У меня дальше будут вопросы - обращусь.
Спасибо большое