| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Выбор процедуры [D7, XP]
Der Nechk@ssoff © (2006-03-07 12:13:00)Здраствуйте!У меня вот какая ситуация: мне надо сделать так что бы при нажатии на RadioButton компонент image1 перемещался влево(вправо,вверх и вниз-это несколько процедур) и чтобы прога каждый раз произвольно выбирала процедуру.Спасибо большое!
Der Nechk@ssoff (2006-03-07 16:00:00) [21]Вот.Помогите исправить ошибки-сам никак!("?"-ошибки)
procedure TForm1.Button1Click (sender:Tobject);
var
Random:integer;
Randomize:
Random?:=Random (?30);
case? button1click of;
1..10: image.left:=148;
11..20:image.left:=248;
21..30:image.left:=0;
Radiobutton3.Enabled:=true;
Radiobutton2.Enabled:=true;
image1.Visible:=false;
end;
Der Nechk@ssoff (2006-03-07 15:00:00) [22]Слава великому tesseract!Спасибо!
tesseract (2006-03-07 15:00:00) [23]
> А почему не Randow(5)? И что делать для myRandom in [0,41.
> .49]?
Слушай вслепую набивал, по Rando W(infinite).
Плохиш (2006-03-07 14:59:00) [24]
> tesseract © (07.03.06 14:53) [12]
А почему не Randow(5)? И что делать для myRandom in [0,41..49]?
tesseract (2006-03-07 14:53:00) [25]
var myRandom:integer;
Randomize;
myRandom:=Random(50);
case myRandom of
1..10: image.left:=148;
11..20:image.left:=248;
21..30:image.left:=348;
31..40: image.left:=448;
end;
Leonid Troyanovsky (2006-03-07 14:38:00) [26]
> Der Nechk@ssoff © (07.03.06 14:10) [9]
> Хватит цеплятся за слова!Лучше помогите начинающему!
Чем же помочь болезному, если он двух слов связать не может.
--
Regards, LVT.
Virgo_Style (2006-03-07 14:32:00) [27]Лучше бы за эти два дня почитал что-нибудь, тогда бы проблема решилась за две минуты, и жуткая туча будущих проблем тоже
Der Nechk@ssoff (2006-03-07 14:10:00) [28]Хватит цеплятся за слова!Лучше помогите начинающему!
Leonid Troyanovsky (2006-03-07 13:59:00) [29]
> Der Nechk@ssoff © (07.03.06 13:53) [7]
> А как ЕЁ запрограмировать?Я над ней уже 2ой день сижу!
Кого "ее"? "Алгоритм", "выбор" - муж. рода.
> image1.Left:=128;\
> прога должна выбрать одну из этих процедур
Процедур? Хм. Здесь, при развитой фантазии, можно увидить
вызов метода (муж. рода).
Кстати, вызов-то один, только параметры различаются - 128, 248.
--
Regards, LVT.
Der Nechk@ssoff (2006-03-07 13:53:00) [30]А как ЕЁ запрограмировать?Я над ней уже 2ой день сижу!
Плохиш (2006-03-07 13:45:00) [31]
> прога должна выбрать одну из этих процедур
Алгоритм выбора надо запрограммировать, а "прога" не может ничего выбрать.
Der Nechk@ssoff (2006-03-07 13:28:00) [32]Вот проблемный кусок текста:
procedure TForm1.Button1Click (sender:Tobject);
begin
Radiobutton4.Enabled:=true;
Radiobutton3.Enabled:=true;
image1.Visible:=false;
image1.Left:=128;\
прога должна выбрать одну из этих процедур
image1.Left:=248;/
end;
tesseract (2006-03-07 12:27:00) [33]onclick:=RandomClick1;
где Randomclick1/2/3 процедура класса TNotifyEvent.
Der Nechk@ssoff (2006-03-07 12:23:00) [34]>Меняй обработчик onClick после нажатия в чем сложность?
На что поменять?
Плохиш (2006-03-07 12:22:00) [35]
> Der Nechk@ssoff © (07.03.06 12:13)
> Здраствуйте!У меня вот какая ситуация: мне надо сделать
> так что бы при нажатии на RadioButton компонент image1 перемещался
> влево(вправо,вверх и вниз-это несколько процедур) и чтобы
> прога каждый раз произвольно выбирала процедуру.
Randomize/Random/If/Case
tesseract (2006-03-07 12:18:00) [36]Меняй обработчик onClick после нажатия в чем сложность?
| |
Страницы: 