Продолжаю написание игры футбольный менеджер. Теперь на Delphi. Т.к почти еще ничего не знаю надеюсь на вашу помощь. Для начала: как сделать выбор 1 пункта из нескольких? (при выборе в зависимости от пункта переменной присваивается значение) Это могут быть "радио"- кнопки или выбор из списка. Не могу разобраться как связать фому с unit'ом.
Набросайте пожалуйста как сделать так: см.рис
Вобщем пока проблемы интерфейса. Ещё: Как, например, задать background ?
Если есть можно дать ссылку на материал, где это описано.
Всё, большое спасибо с тем что было по-тихоньку разобрался
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 и выводятся в Листбокс. Нужно сделать чтобы события в него выводились с некоторой задержкой, и чтобы матч можно было остановить, что-то сделать с составом и возобновить, не теряя предыдущих событий. Если пользователь сделал замену игрока, соответственно выводим сообщение об этом в Листбокс.