|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.11.2008, 03:29 | #1 |
Форумчанин
Регистрация: 28.10.2008
Сообщений: 350
|
При создание edit, в режиме run-time, нет стандартного контекстного меню
Здравствуйте, кто нибудь сталкивался с такой проблемой, создаю в режиме run-time, edit у него почему то исчезает стандартный вызов контекстного меню, и полностью заблокирована левая кнопка мыши, при этом работает только правая с чем это может быть связано?
|
08.11.2008, 12:25 | #2 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Выкладывайте ваш код создания edit-а...
|
08.11.2008, 14:34 | #3 |
Форумчанин
Регистрация: 28.10.2008
Сообщений: 350
|
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; |
08.11.2008, 16:13 | #4 | |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 486
|
Цитата:
С другой стороны, непонятно, зачем вообще такие извраты с постоянным созданием/удалением формы. Проще сделать ее на этапе разработки, а потом просто вызывать/скрывать в нужные моменты. |
|
08.11.2008, 16:28 | #5 |
Форумчанин
Регистрация: 28.10.2008
Сообщений: 350
|
Спасибо за подсказку... все работает нормально если в nil родителя указывать, что касается постоянного создания/удаления формы надо подумать может действительно опустить это. Все равно спасибо большое.
|
08.11.2008, 16:50 | #6 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Что-то вы перемудрили, на мой взгляд. Да еще и в Дельфи "глюк" нашли...
Если делать нормально, то никаких "глюков": Код:
|
08.11.2008, 17:05 | #7 |
Форумчанин
Регистрация: 28.10.2008
Сообщений: 350
|
самое интересное это Form2.Free;... не думал что так можно сделать спс..
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подскажите! Run-time error '7' Out of memory | evgenjp | Свободное общение | 3 | 01.10.2008 09:16 |
Пункты меню Run... | Roof | Общие вопросы Delphi | 1 | 25.08.2008 14:45 |
Создание события формы, доступного в Disign-time | Fausto | Компоненты Delphi | 4 | 06.06.2008 16:12 |
Меню(Графика в текстовом режиме) | winnix | Общие вопросы C/C++ | 3 | 15.05.2008 00:32 |
Создание меню на С | KsandR | Общие вопросы C/C++ | 5 | 13.12.2007 21:34 |