Форум: "Начинающим";
Текущий архив: 2011.01.30;
Скачать: [xml.tar.bz2];

Вниз

Напомните о контрлах. InsertControl vs Parent   Найти похожие ветки 

← →
12 ©   (2010-11-13 15:50) [0]

это аналогично ведь?

   CB.Buttons[i].Parent := TB;
и
//    B := TBitBtn(CB.Buttons[i]);
//    CB.RemoveControl(CB.Buttons[i]);
//    TB.InsertControl(B);
?

---

← →
han_malign   (2010-11-13 16:08) [1]

блин, а открыть Controls.pas - религия не позволяет???
procedure TControl.SetParent(AParent: TWinControl);
begin
 if FParent <> AParent then
 begin
   if AParent = Self then
     raise EInvalidOperation.CreateRes(@SControlParentSetToSelf);
   if FParent <> nil then
     FParent.RemoveControl(Self);
   if AParent <> nil then
   begin
     AParent.InsertControl(Self);
     UpdateAnchorRules;
   end;
 end;
end;
...
procedure TWinControl.Insert(AControl: TControl);
begin
 if AControl <> nil then
 begin
   if AControl is TWinControl then
   begin
     ListAdd(FWinControls, AControl);
     ListAdd(FTabList, AControl);
   end else
     ListAdd(FControls, AControl);
   AControl.FParent := Self;
 end;
end;
...
procedure TWinControl.InsertControl(AControl: TControl);
var
 Item: TControlListItem;
begin
 AControl.ValidateContainer(Self);
 Item.Control := AControl;
 Item.Parent := Self;
 Perform(CM_CONTROLLISTCHANGING, Integer(@Item), Integer(True));
 Perform(CM_CONTROLLISTCHANGE, Integer(AControl), Integer(True));
 Insert(AControl);
 ...


---

← →
12 ©   (2010-11-13 17:11) [2]

Спасибо :)
знаю что так можно и так и сделал

ждал просто
может кто разбирался уже и просто скажет да, в принципе
код большой, встретил
//    B := TBitBtn(CB.Buttons[i]);
//    CB.RemoveControl(CB.Buttons[i]);
//    TB.InsertControl(B);

решил переписать

CB.Buttons[i].Parent := TB;

а то и так много всего на странице

---

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

Форум: "Начинающим";
Текущий архив: 2011.01.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.004 c