Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.04;
Скачать: CL | DM;

Вниз

Получение фокуса компонента   Найти похожие ветки 

 
Сатир   (2007-01-10 13:04) [0]

У меня есть компонент, который наследуется от 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  
---------------------------
Кто знает, как можно исправить эту ситуацию?
Заранее благодарен.


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


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

попробуй так


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

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


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


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

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


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

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


 
EvChul ©   (2007-01-11 10:05) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2007.03.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
2-1171294669
DimitrySDA
2007-02-12 18:37
2007.03.04
Сканирование каталогов и отображение в ListView


6-1158341933
SamProf
2006-09-15 21:38
2007.03.04
Как заставить WebBrowser открывать в себе


2-1170886075
UrbanRider
2007-02-08 01:07
2007.03.04
ShellAPI. ShellExecute, не уверен что срабатывает.


11-1149836904
YDS
2006-06-09 11:08
2007.03.04
Запуск приложения, хранящегося в ресурсах средствами API


1-1168438293
tol
2007-01-10 17:11
2007.03.04
Сотрировка страниц для печати