Страница 1 из 2
Как сделать Free родителю
Добавлено: 17 ноя 2005, 12:45
Blood_Magic
Народ, помогите, что-то я совсем ничего не понимаю. Пример: На форме есть Panel1, на ней Image1. В модуле пишу:
Код: Выделить всё
procedure TForm1.Image1Click(Sender: TObject);
begin
TImage(Sender).Parent.Free;
end;
Не работает, выдает ошибку, причем если несколько Image на Panel, то ошибки выдаются разного типа и не всегда.
Добавлено: 17 ноя 2005, 12:47
Blood_Magic
Причем с кнопкой Button все прокатывает нормально
Добавлено: 17 ноя 2005, 14:01
OTELLO
Ну так ты убиваешь родителя,теряются все связи,это вообще злая ошибка происходит на самом деле,кароче нельзя так делать=)
Добавлено: 17 ноя 2005, 17:18
Blood_Magic
OTELLO писал(а):Ну так ты убиваешь родителя,теряются все связи,это вообще злая ошибка происходит на самом деле,кароче нельзя так делать=)
спасибо что подсказал, и как это я сам не додумался.
Дельные советы есть?
Добавлено: 17 ноя 2005, 17:54
Duncon
Сделай ее невидимой да не парся
аля
.Visible := False;
Добавлено: 18 ноя 2005, 11:14
Игорь Акопян
Blood_Magic, тебе это для чего? может надо с другой стороны подходить...
Добавлено: 18 ноя 2005, 12:44
Blood_Magic
Игорь Акопян писал(а):Blood_Magic, тебе это для чего? может надо с другой стороны подходить...
У меня есть главная форма. При нажатии кнопки создается новая форма,а на главной форме соответственно создаются кнопочки. При нажатии кнопочки происходит переход на соответствующую форму.
Состав кнопки: Panel (сама кнопка), на ней расположены: Bevel (в виде рамки - стиль оформления) и Image (Кнопка закрытия формы - крестик как у окон Windows). При нажатии на Image должно происходить уничножение соответствующей формы и кнопки (Panel,Bevel,Image).
Добавлено: 18 ноя 2005, 14:13
OTELLO
Ну так и уничтожай в обратном порядке- сначала Image, потом Bevel, а потом и панельку-все заработает...
Добавлено: 18 ноя 2005, 17:29
Игорь Акопян
Дай угадаю. Ты в рунтайме кнопки с бевелами создаёшь? Если да, то как? Обычно Free парента убивает детей, но только если дети созданы корректно! Проверь свойства Parent и Owner
Добавлено: 18 ноя 2005, 22:02
OTELLO
2
Игорь Акопян
Обычно Free парента убивает детей
хочу заметить что не убивает если дети созданы в среде,т.е. не во время исполнения проги,а у него,судя по ошибе,именно так и есть.