Динамическое создание компонента SynEdit

[murads60]

Возникла проблема... в программе динамически создаю экземпляр TSynEdit

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

mySEdit := TSynEdit.Create(Nil);
with mySEdit do begin
           Parent := myTabSheet;
           Align := alClient;
           PopupMenu := PopupMenuText;
end;                                     

проблема: созданный компонент какой то "недоделанный" т.е. в нем не работают клавиша Backspace стрелки не работаю(не могу передвигаться по тексту) только набор текста и перевод на новую строку. В чем же может быть проблема ?
Если компонент как обычно взять с палитры компонентов то все работает.

[B4rr4cuda]

У меня такая же беда проявлялась, когда переводил сэмпл-IDE PascalScript-a с делфи, преобразованием проекта лазарем. Трабла решилась удалением обьекта и броском на форму нового, с привязкой событий.
Присоединяюсь к вопросу.

[Devel0]

неважко знайти рядок

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

 if assigned(Owner) and not (csLoading in Owner.ComponentState) then begin
    SetDefaultKeystrokes;    

, тому

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

mySEdit := TSynEdit.Create(OWNER);

?