Как сделать Free родителю

[Blood_Magic]

Народ, помогите, что-то я совсем ничего не понимаю. Пример: На форме есть Panel1, на ней Image1. В модуле пишу:

Код: Выделить всё

procedure TForm1.Image1Click(Sender: TObject);
begin
  TImage(Sender).Parent.Free;
end;

Не работает, выдает ошибку, причем если несколько Image на Panel, то ошибки выдаются разного типа и не всегда.

[Blood_Magic]

Причем с кнопкой Button все прокатывает нормально

[OTELLO]

Ну так ты убиваешь родителя,теряются все связи,это вообще злая ошибка происходит на самом деле,кароче нельзя так делать=)

[Blood_Magic]

Ну так ты убиваешь родителя,теряются все связи,это вообще злая ошибка происходит на самом деле,кароче нельзя так делать=)

спасибо что подсказал, и как это я сам не додумался.

Дельные советы есть?

[Duncon]

Сделай ее невидимой да не парся
аля
.Visible := False;

[Игорь Акопян]

Blood_Magic, тебе это для чего? может надо с другой стороны подходить...

[Blood_Magic]

Blood_Magic, тебе это для чего? может надо с другой стороны подходить...

У меня есть главная форма. При нажатии кнопки создается новая форма,а на главной форме соответственно создаются кнопочки. При нажатии кнопочки происходит переход на соответствующую форму.
Состав кнопки: Panel (сама кнопка), на ней расположены: Bevel (в виде рамки - стиль оформления) и Image (Кнопка закрытия формы - крестик как у окон Windows). При нажатии на Image должно происходить уничножение соответствующей формы и кнопки (Panel,Bevel,Image).

[OTELLO]

Ну так и уничтожай в обратном порядке- сначала Image, потом Bevel, а потом и панельку-все заработает...

[Игорь Акопян]

Дай угадаю. Ты в рунтайме кнопки с бевелами создаёшь? Если да, то как? Обычно Free парента убивает детей, но только если дети созданы корректно! Проверь свойства Parent и Owner

[OTELLO]

2 Игорь Акопян

Обычно Free парента убивает детей

хочу заметить что не убивает если дети созданы в среде,т.е. не во время исполнения проги,а у него,судя по ошибе,именно так и есть.