有什么方法可以把当前的控件赋给Parent属性,比如:K.Parent:=当前控件(现在还不知道这个控件是什么)!

Question

windindance(风之舞) 说的对极。给他分吧。
他说的这个是指同一个Form中的活动控件。如果是整个应用程序的（可能不是本Form的，当本Form不是活动的时），还可以用Screen.ActiveControl得到。它相当于ActiveForm.ActiveControl。
如果你想赋给不是本应用程序的或者不是用Delphi编的窗口或控件，可以用Windows.SetParent函数，它是API中的。

Answer 1

to agui(阿贵)怎么这么多废话？

Answer 2

对不起大家，我这个问题有一个例外的地方是，现在这个k是在PageControl控件中，也就是说PageControl现在是一个容器控件，我的k在它之中，如果使用ActiveControl的话，当前活动控件是PageControl而不是我的k，有没有别的什么办法呀？

Answer 3

你的k是什么控件？
不是要给k一个parent的吗？为什么需要当前活动控件是k？

Answer 4

等你的控件创建之后，给控件命名，然后再指定K.Parent不就行了吗，你不会想在创建之前就指定吧

Answer 5

k.Parent := self.ActiveControl; 

Answer 6

说出你的目的吧，把问题描述得详细一些。是不是想把你的k放到PageControl的一页中？如果是这样，那就：if ActiveControl.Parent is TTabSheet then
  k.Parent := ActiveControl.Parent;PageControl中的每一页是一个TTabSheet管理着子控件。

Answer 7

不行啊，因为其中的ToolBar控件又是在TTabSheet如果用阿贵你的方法，将不会有任何反映！

Answer 8

看起来好象是那种MPI的东东
试试这个：
var
   pi:pointer;
begin
   pi:=notebook1.pages.object[];
   k.parent:=pi;
end;

Answer 9

我的意思是，你的k是属于TWinControl的吗？

Answer 10

k属于啊因为k是TToolBar控件创建的k:=TToolBar.Create(Self);

Answer 11

k属于啊因为k是TToolBar控件创建的k:=TToolBar.Create(Self); 

Answer 12

ToolBar是不可以得到焦点的！你可以静态放一个上去看。

Answer 13

to Linux2001(算了吧)
  我的感觉是，说了半天你什么都没说清楚。你是不是动态创建了一个ToolBar，要指定另一个控件为ToolBar的Parent？可以在讲一下这个控件是什么吗？

Answer 14

就是现在动态创建一个ToolButton,然后T.Parter:=ToolBar1;(ToolBar也是动态创建的!T是ToolButton);

Answer 15

帮助里面有嘛，从Help中Copy过来的例子：
procedure AddButtons(ToolBar: TToolBar;
  Const ButtonCaptions: array of String);
var
  I: Integer;
begin
  for I := 0 to High(ButtonCaptions) do
    begin
      with TToolButton.Create(ToolBar) do
      begin
        Parent := ToolBar;
        Caption := ButtonCaptions[I];
        if (ButtonCaptions[I] = '|') then
          Style := tbsSeparator
        else
          Style := tbsButton;      end;
    end;
end;procedure TForm1.FormCreate(Sender: TObject);
var
  ToolBar: TToolBar;
begin
  ToolBar := TToolBar.Create(Self);
  ToolBar.Parent := Self;
  AddButtons(ToolBar, ['New', 'Save', '|', 'Cut', 'Copy', 'Paste']);
  ToolBar.ShowCaptions := True;
  ToolBar.Height := 40;
end;