При создание edit, в режиме run-time, нет стандартного контекстного меню

[slips]

Здравствуйте, кто нибудь сталкивался с такой проблемой, создаю в режиме run-time, edit у него почему то исчезает стандартный вызов контекстного меню, и полностью заблокирована левая кнопка мыши, при этом работает только правая с чем это может быть связано?

[_Dmitry]

Выкладывайте ваш код создания edit-а...

[slips]

type
AddNewForms=record
AddForms :TForm;
AddEdit :TEdit;
end;

procedure TPMainForm.SpeedButton6Click(Sender : TObject);
var
T:AddNewForms;
FindComponet:TComponent;
begin
FindComponet:=FindComponent('AddNew Cartocka'); // Ищем не создан ли уже компанент
TForm(FindComponet).Free;
{**********Форма******************* *}
T.AddForms:=TForm.Create(self);
T.AddForms.Parent:=self;
T.AddForms.Name:='AddNewCartocka';
T.AddForms.Caption:='Создание нового раздела...';
{********************************** *}
T.AddEdit:=TEdit.Create(T.AddForms) ;
T.AddEdit.Parent:=T.AddForms;
T.AddEdit.Name:='AddNewEdit';
T.AddEdit.AutoSelect:=true;
T.AddEdit.Clear;
T.AddForms.Show;
end;

[Jeni]

Сообщение от slips

...исчезает стандартный вызов контекстного меню, и полностью заблокирована левая кнопка мыши...

Действительно, есть такая хрень. Чисто экспериментально выяснилось, что если не использовать T.AddForms.Parent:=self; то все работает как надо.

С другой стороны, непонятно, зачем вообще такие извраты с постоянным созданием/удалением формы. Проще сделать ее на этапе разработки, а потом просто вызывать/скрывать в нужные моменты.

[slips]

Спасибо за подсказку... все работает нормально если в nil родителя указывать, что касается постоянного создания/удаления формы надо подумать может действительно опустить это. Все равно спасибо большое.

[mihali4]

Что-то вы перемудрили, на мой взгляд. Да еще и в Дельфи "глюк" нашли...
Если делать нормально, то никаких "глюков":

var AddEdit: TEdit;
    Form2: TForm;
begin
Form2:=TForm.Create(Application);
AddEdit:=TEdit.Create(Form2);
AddEdit.Parent:=Form2;
AddEdit.Name:='AddNewEdit';
AddEdit.AutoSelect:=true;
AddEdit.Clear;
AddEdit.Visible:=True;
Form2.ShowModal;
Form2.Free;
end;

[slips]

самое интересное это Form2.Free;... не думал что так можно сделать спс..