|
#31
|
|||
|
|||
И тебе спасибо, но предудущий вариант сработал уже, а твой объязательно попробую в седующей форме).
|
#32
|
||||
|
||||
Простите, небыло сил удержаться. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 08.03.2011 в 15:00. |
#33
|
|||
|
|||
Поздравляю тебя с 8-ом мартом...
|
#34
|
|||
|
|||
дем в тему ))
|
#35
|
||||
|
||||
Прекращаем оффтоп.
|
#36
|
|||
|
|||
Люди, а можно создавть сайты с помощью делфи, если можно, то пожалуйста дайте ссылке на книги по этому поводу.
|
#37
|
|||
|
|||
Цитата:
Сомневаюсь, что ты пошел по правильному пути |
#38
|
|||
|
|||
Rando
Код:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; b:integer; begin for b := 5 to 10 do i:= Random(b); Edit1.Text:=IntToStr(i); end; |
#39
|
||||
|
||||
i:= 5+Random(6)
|
#40
|
|||
|
|||
Блогодарю, получилось)
|
#41
|
|||
|
|||
Цитата:
Надо, чтоб с случайного начал. |
#42
|
||||
|
||||
randomize поставь в начале процедуры
|
#43
|
|||
|
|||
Код:
procedure TForm1.Button1Click(Sender: TObject); begin Panel1.visible.true; end; |
#44
|
|||
|
|||
Код:
procedure TForm1.Button1Click(Sender: TObject); begin Panel1.visible:=true; end; |
#45
|
|||
|
|||
Ок, спс большое)
|