Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.012 c
14-56812
Nick-From
2003-10-24 17:52
2003.11.17
FastReport для Delphi 7


4-56952
vic_vm
2003-09-20 16:05
2003.11.17
Как предотвратить загрузку Dll в определенный процесс


3-56468
DimChan
2003-10-24 07:21
2003.11.17
TQuery


14-56880
undert
2003-10-26 03:05
2003.11.17
ПОМОГИТЕ! Конфигурирование Apache


1-56636
rks
2003-11-04 17:59
2003.11.17
Помогите,разобраться с окнами(формами)...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский