![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Delphi 7 Portable (2002 года)
Имэйдж присутствует в 12 экз. Первый по нажатию исчезает, второй же "зависает" и не исчезает. Делал исчезновение через image2.visible=false. Почему не фурычит? Мне нужно к четвергу. Помогите, обьясните хоть! |
#2
|
|||
|
|||
![]() Код в студию для начала...
|
#3
|
||||
|
||||
![]() Код:
image2.visible=false Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#4
|
|||
|
|||
![]() Цитата:
скинул. проблема не решается убирательством следующей после первой (т.е. второй) картинки. начинает висеть 3-я... и т.д. Последний раз редактировалось M.A.D.M.A.N., 27.05.2015 в 12:43. |
#5
|
||||
|
||||
![]() Нет, не так написано.
image2.visible=false и image2.visible:=false это две разные по результату строки. А что касается вашего кода... Никогда не пишите такой код. Все это бесконечное количество повторов заменяется парой процедур с циклами. Для начала заведите массив и заполните его при создании формы. Вы раз в 10 сократите код, если будете работать с массивом. Вот примерно так можно это сделать: Код:
TForm1 = class(TForm) ... private Images: Array[1..12] of TImage; end; ... procedure TForm1.FormCreate(Sender: TObject); Var i: integer; begin c := 12; for i := 1 to 12 do Images[i] := Form1.FindComponent('Image'+IntToStr(i)) as TImage; end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
Romanecz00 (27.05.2015)
|
#6
|
|||
|
|||
![]() Цитата:
![]() |