Создаю игру "Рыбалка"

[Beermonza]

Ulex, да там еще столько нюансов, ...например, ушла вода или поднялась хоть на 20 см, все, клева не будет, а при полных фазах луны, смене давления, ветра и температуры воды - тем более. Можно забабахать симулятор, но это дело новичку не под силу.

[ViniPux1112]

Да я понимаю что я нуб....Маленьких программ сделал уже много,хочеться что-то поинтерестнее....Сейчас вопрос,у меня есть картинки удочек,удочки я вывожу в listbox,как прикрутить к удочке картинку?

[Mad_Cat]

Ткатушка = record
 название :string[20];
 прочка: 0..100
 мощность : byte;
 путь:string[255]; (*путь  к картинке*)
end;

с остальными снастями Аналогично

[ViniPux1112]

Еще вопросик...Если не сложно,помогите новечку...
1)Как сделать,что-бы форму3 нельзя было вынести за рамки формы2?

П.С Всем спасибо за помощь!Годика через 3 может сделаю игру,которую вы хотите....

[Mad_Cat]

Как сделать,что-бы форму3 нельзя было вынести за рамки формы2?

Форма 2 FormStyle:= fsMDIForm;
Форма 3 FormStyle:= fsMDIChild;

[ViniPux1112]

Спасибо,но при запуске ошибки...Ну ладно,завтра разберусь...
Вот еще вопрос.Можно ли прочитать в listbox1 первые 2 символа в названии потом пропустить 1,3 и 4 прочитать потом пропустить 1 ,5 и 6 прочитать?Если можно то как?Буду благодарен...
Прочитать и вывести в label1 первые 2 символа
В label2 3 и 4 символ
А в label3 6 и 7 символ

[Mad_Cat]

s:='Ваш Текст';
label1.caption:=copy(s,1,2);
label2.caption:=copy(s,3,2);
label3.caption:=copy(s,6,2);

[ViniPux1112]

Вы меня не поняли!Нужно из listbox1 скопировать этот текст!

П.С Как сделать рельеф дна?У меня есть катринка,как сделать что-бы можно было кидать только где вода,а в кусты нельзя???

[ViniPux1112]

Делаю вот это

procedure TForm2.Button1Click(Sender: TObject);
begin
listbox3.Items.Add(Form7.ListBox5.Items[form7.ListBox5.ItemIndex]);
end;

У меня выскакивает ошибка при нажатии на кнопку

Как исправить???


П.С Как сделать рельеф дна?У меня есть катринка,как сделать что-бы можно было кидать только где вода,а в кусты нельзя???

[Anton911]

Сообщение от ViniPux1112

Делаю вот это

procedure TForm2.Button1Click(Sender: TObject);
begin
listbox3.Items.Add(Form7.ListBox5.Items[form7.ListBox5.ItemIndex]);
end;

У меня выскакивает ошибка при нажатии на кнопку

Как исправить???

попробуйте так

listbox3.Items.Add(Form7.ListBox5.Items[form7.ListBox5.ItemIndex-1]);