IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> TActionManager: Control `` has no parent windows
сообщение
Сообщение #1


Гость






Привет All!
Создаю свой компонент и внутри которого хочу поместить меню и панель с кнопочками с помощью TActionManager.

Это я объявил...
Код
   xActionManager: TActionManager;
   xActionMainMenuBar: TActionMainMenuBar;
   xAction:TAction;
   xActionClient:TActionClient;
   xActionClientItem:TActionClientItem;
   xCollection:TCollection;
   xActionBarItem:TActionBarItem;


Перекрыл метод Create...
Где создаю TActionManager, TActionMainMenuBar... один TAction и вставляю его в строчку меню...

Код
constructor TmyComponent.Create(aOwner: TComponent);
begin
 inherited Create(aOwner);

 xActionManager:=TActionManager.Create(Self);
 xActionManager.Name:='ActionManager';

 xActionMainMenuBar:=TActionMainMenuBar.Create(Self);
 xActionMainMenuBar.Name:='mmb';
 xActionMainMenuBar.Parent:=Self;
 
 xAction:=TAction.Create(Self);
 xAction.Caption:='aCaption';
 xAction.Enabled:=true;
 xAction.Visible:=true;
 xAction.Name:='aName';

 xActionClient:=TActionClient.Create(nil);
 FzActionManager.AddAction(xAction,xActionClient);

 xActionBarItem:=xActionManager.ActionBars.Add;
 xActionBarItem.ActionBar:=xActionMainMenuBar;
 xActionBarItem.AutoSize:=false;
 xActionClientItem:=xActionBarItem.Items.Add;

 xActionClientItem.Action:= xAction;

end;
...

компилирую ...
..но как только я его бросаю на форму появляется ошибка "Control `` has no parent windows"... sad.gif(
Что я делаю не так? помогите очень нужно...

Если закомментировать xActionClientItem.Action:= xAction;
компилирую, бросаю на форму... все без ошибок... не удаляя компонент с формы.. раз комментирую строчку ... компилю... смотрю на форму с компонентном там уже появилась кнопока в меню...
Помогите разобраться! Что не так?

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 156
Пол: Мужской

Репутация: -  0  +


Присвоить что-то свойству parent


--------------------
With the best regards Vit

Все всегда уезжают навсегда. Вернуться невозможно-вместо нас всегда возвращается кто-то другой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата(Vit @ 21.08.2003 12:44) *

Присвоить что-то свойству parent

а что именно присвоить, пробовал такое Parent.HandleNeeded, тоже самое, хотя при Parent.Create выдает ошибку
компиляции но тогда когда уже кидаю компонент на форму wacko.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Parent := <тип parent>(aOwner)
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 19.12.2017 5:26
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"