Скачать: CL | DM;

Как у виз. компонента поменять Parent?   Найти похожие ветки 

← →
tria   (2004-07-02 12:51) [0]

В форме наследнике компонент лежит на самой форме, а мне надо его передвинуть на ToolBar1, т.е. поменять Parent-а. Как это сделать в редакторе Делфи? (не во время исполнения, т.е. VisComp.Parent:=ToolBar1).

---

← →
Семен Сорокин ©   (2004-07-02 12:55) [1]

View Form As Text...
а дальше перетянуть все что касается VisComp в область ToolBar1

ЗЫ. Сохрани форму сначала.

---

← →
TUser ©   (2004-07-02 13:03) [2]

Выделить, потом Ctrl-C -> Ctrl-V

---

← →
Anatoly Podgoretsky ©   (2004-07-02 13:03) [3]

Ctrl+X, Ctrl+V

---

← →
tria   (2004-07-02 13:08) [4]

>Ctrl+X, Ctrl+V
Неа. Компонент унаследован от предка, удалять не дает.

---

← →
Anatoly Podgoretsky ©   (2004-07-02 13:13) [5]

Как же ты его на форму тогда положил. Но не важно, тогда делай это у предка.

---

← →
tria   (2004-07-02 13:15) [6]

>Как же ты его на форму тогда положил.
От предка достался.
>Но не важно, тогда делай это у предка.
У предка он должен оставаться на самой форме, а у потомка хочу переместить на ToolBar. (данный потомок не единственный).

---

← →
tria   (2004-07-02 13:29) [7]

>View Form As Text...
а дальше перетянуть все что касается VisComp в область ToolBar1

Не помогло. При чем выставление свойства Left передвигает компонет в потомке, но родителем ToolBar не стал. Запись Parent = ToolBar результата не дает - ругается при поднятии формы.

---

← →
Семен Сорокин ©   (2004-07-02 14:16) [8]

> Не помогло. При чем выставление свойства Left передвигает
> компонет в потомке, но родителем ToolBar не стал. Запись
> Parent = ToolBar результата не дает - ругается при поднятии
> формы.

приведи текст формы

---

← →
tria   (2004-07-02 14:22) [9]

Чуть обрезав (компонент - кнопка btDo):
inherited fmFE: TfmFE
 Left = 221
 Top = 154
 object ToolBar1: TToolBar [3]
   Left = 0
   Top = 0
   object ToolButton1: TToolButton
     Left = 0
     Top = 0
     Action = acIns
   end
   object BitBtn2: TBitBtn
     Left = 189
     Top = 0
     Width = 60
   end
   inherited btDo: TBitBtn
     Left = 180
     Parent = ToolBar1
   end
 end

---

← →
Семен Сорокин ©   (2004-07-02 14:29) [10]

э-э-э друг, так она у тебя в наследнике там стоит - не удасться...
сделай эту кнопку невидимой, создай новую кнопку - на которую перенеси функциональность старой (св-ва, обработчики),
либо в рантайм.

---

← →
tria   (2004-07-02 14:34) [11]

>Семен Сорокин
ОК. Спасибо

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.02 c