При второй вставке динамического объекта ошибка.

← →
Aleksandr (2003-11-06 15:30) [0]

В панель вставляю динамический объект:
ProgPanel.DisableAlign; PL:=TProgressLabel.Create(ProgPanel); PL.Align:=alBottom; PL.Parent:=ProgPanel; PL.Visible:=True; ProgPanel.EnableAlign; Result:=PL; if NOT ProgPanel.Visible then ProgPanel.Show
затем удаляю его:
ProgPanel.DisableAlign; Pl.Parent:=nil; Pl.Free; ProgPanel.EnableAlign; if ProgPanel.ControlCount=0 then ProgPanel.Hide
все в ажуре. Потом пытаюсь создать еще один динамический объект, и на строчке
PL.Parent:=ProgPanel;

появляется ошибка "Недопустимый дескриптор окна".

Чего я тут не так делал?

← →
me (2003-11-06 15:50) [1]

Убрать Pl.Parent:=nil; при удалении динамического объекта

← →
Aleksandr (2003-11-06 15:53) [2]

Та же песня. Все равно на второй раз ругается на той же строчке.

← →
Aleksandr (2003-11-06 16:00) [3]

Да, кстати, и сама программа потом ругается при закрытии на то же самое.

← →
Zelius (2003-11-06 16:59) [4]

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

← →
Aleksandr (2003-11-06 17:07) [5]

Спасибо, так и есть.

При второй вставке динамического объекта ошибка. Найти похожие ветки