Показать сообщение отдельно
  #1  
Старый 26.09.2011, 01:47
plt plt вне форума
Прохожий
 
Регистрация: 26.09.2011
Сообщения: 22
Репутация: 10
По умолчанию Компонент на основе TCustomControl

Здравствуйте!
Столкнулся с ситуацией, объяснения которой найти не могу. Суть такова:
Создаю класс, на основе TCustomControl, в методе Paint прорисовываю так сказать "подложку", после чего вызываю функцию CreateWindowEx, которая создает поле ввода, с параметрами описанными в первом попавшемся примере (при компиляции примера проблем нет). После компиляции получаю следующее:
Поле ввода отображается, но при открытии диспетчера задач видно, как каждую секунду количество используемой приложением памяти увеличивается.
Не могу найти причину - дело в неправильном вызове CreateWindowEx или все гораздо сложнее и создавать подобные элементы необходимо не прямым вызовом функций api?
на всякий случай вот код функции:
Код:
hEdit := CreateWindowEx(WS_EX_CLIENTEDGE,'edit', '', WS_CHILD or WS_VISIBLE or ES_LEFT or WS_TABSTOP, 10, 10, 80, 20, Handle, 0, hInstance, nil);
Если закомментировать эту строку, то утечка памяти прекращается.
Подскажите, в какую сторону копать
Заранее спасибо!
Ответить с цитированием