Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.08.03;
Скачать: CL | DM;

Вниз

Перестал работать компонент   Найти похожие ветки 

 
Alex_C   (2008-07-03 08:46) [0]

Непонятка. Сделал простеникий компонент, наследник от TMemo. Установил его в Дельфи, все нормально работало. А вот вчера при попытке разместить его на форме, пишет ошибку:
Control "" has no parent window
Пробовал переустанавливать - все тоже самое. В чем причина?


 
Dennis I. Komarov ©   (2008-07-03 09:08) [1]

Удалено модератором
Примечание: создание пустых сообщений...


 
Юрий Зотов ©   (2008-07-03 09:10) [2]

> Alex_C   (03.07.08 08:46)  

> В чем причина?

В коде компонента. Похоже, в конструкторе.


 
Alex_C   (2008-07-03 09:13) [3]

Код то простенький
 THxMemo = class(TMemo)
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;
...
//*****************************************
constructor THxMemo.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 Windows.HideCaret(Handle);
 // Уменьшение мерцания
 ControlStyle := ControlStyle + [csOpaque];
 WordWrap := True;
 DoubleBuffered := False;
 ReadOnly := True;
 IsTelnetMemo := False;
 HighlightURL := False;
 FImage := TBitmap.Create;
end;

Вроде как проблема только в конструкторе может быть... Вот только где?


 
Anatoly Podgoretsky ©   (2008-07-03 09:13) [4]

По запросу "Control has no parent window" Гугл выдает 2 500 000 ссылок.


 
Юрий Зотов ©   (2008-07-03 09:20) [5]

Windows.HideCaret(Handle);

Перенесите эту строку в метод CreateWnd (после inherited).


 
Anatoly Podgoretsky ©   (2008-07-03 09:23) [6]

А вот здесь есть обсуждение с участием Юрия
http://delphimaster.net/view/5-1181549169/&toprint=1


 
Alex_C   (2008-07-03 09:33) [7]

То Юрий Зотов: Большое спасибо! Все заработало.
Также спасибо Анатолию Подгорецкому за интересную ссылку по этому вопросу!


 
Anatoly Podgoretsky ©   (2008-07-03 10:36) [8]

> Alex_C  (03.07.2008 9:33:07)  [7]

Там вообще то несколько миллионов ссылок, и насколько я помню вопрос задается с 1995 года, потому и много.
Это к тому, что прежде стоило посмотреть в любой поисковой системе и достаточно просмотреть ответы только на первой странице.



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

Текущий архив: 2008.08.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.006 c
2-1215085766
lead-in
2008-07-03 15:49
2008.08.03
CreateProcess


2-1214910333
lead-in
2008-07-01 15:05
2008.08.03
разделитель в вещ-х числах


15-1213881136
Ega23
2008-06-19 17:12
2008.08.03
packed object - в какой версии Delphi появился?


15-1213786698
Nucer
2008-06-18 14:58
2008.08.03
Лог вызовов API функций


2-1214942165
light-blr
2008-07-01 23:56
2008.08.03
Как узнать, используется ли файл другим приложением?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский