| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Получение фокуса компонента [D7, WinXP]

Сатир ©   (2007-01-10 13:04:00) 

У меня есть компонент, который наследуется от TPanel.
В его конструкторе создаю другую форму и загружаю в него.

constructor TMyPanel.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 FPanel:=self;
 FPanel.Parent:=TWinControl(AOwner);
 fMyForm:=TMyForm.CreateParented(TWinControl(self).Handle);
 fMyForm.ManualDock(TWinControl(self));
 fMyForm.Align:=alclient;
 fMyForm.Show;
end;

При попытке кликнуть на этом компоненте в дизайнере , выдает таку ошибку(и компонент сам не выделяется, можно выделить только через выбор его из Инспектора объектов или через дерево компонентов):
---------------------------
Error
---------------------------
Cannot focus a disabled or invisible window.
---------------------------
OK  
---------------------------
Кто знает, как можно исправить эту ситуацию?
Заранее благодарен.

---

EvChul   (2007-01-11 10:05:00) [1]

А к чему вообще такие извращения? Используй вместо панели фрейм и не пихай в него формы ради бога.

---

Сатир   (2007-01-10 14:38:00) [2]

> fMyForm:=TMyForm.Create(<форма на которой создается другая
> форма>);
> fMyForm.parent:= Self;

так не реботает.
Компонент даже не создаётся, вываливает ошибку доступа.


> ты пытаешься загнать форму на панель?

почему пытаюсь? Я её и так туда уже загнал. Просто мышкой не отмечается,
при клике на нём выдаёт ошибку(см. выше)
а так вроде всё нормально.

---

Правильный Вася   (2007-01-10 13:42:00) [3]

ты пытаешься загнать форму на панель?

---

Евгений1111   (2007-01-10 13:35:00) [4]


fMyForm:=TMyForm.Create(<форма на которой создается другая форма>);
fMyForm.parent:= Self;

попробуй так

---

Наверх